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1.  INTRODUCTION 


A vehicle's  dynamic  system  and  its  subsystems  (suspension, 
brakes,  steering,  transmission,  etc.)  are  comprised  of  many 
elements  whose  characteristics  directly  or  indirectly  affect  its 
performance,  ride  comfort,  and  its  active  and  passive  safety. 
Knowledge  of  these  characteristics  and  their  possible  influences 
on  vehicle  or  subsystem  operation  is  an  essential  input  to  the 
vehicle  design  process. 

The  analysis  of  the  dynamic  behavior  of  a vehicle  in  various 
driving  conditions  becomes  an  important  part  of  modern  vehicle 
design  processes  because  it  directly  relates  to  vehicle  crash 
avoidance.  The  requirements  for  good  vehicle  handling  are  imposed 
in  conjunction  with  the  need  to  prevent  the  premature  loss  of 
vehicle  steerability  (which  occurs  if  a vehicle's  front  axle 
locks  up)  or  directional  stability  (which  occurs  when  the  rear 
axle  locks  up),  and  to  reduce  a vehicle's  rollover  propensity.  To 
investigate  the  vehicle  behavior  mentioned  above  an  adequate 
model  of  the  vehicle  dynamic  system  is  required.  This  vehicle 
model  should  utilize  the  kinematic  and  dynamic  effects  of  its 
subsystems  (such  as  suspensions,  tires)  and  be  represented  by  a 
number  of  design  and  environmental  characteristics  which  are 
important  from  the  view  point  of  the  analysis  of  interest. 

Unfortunately,  it  is  not  always  clear  which  of  these  characteris- 
tics are  important  and  predominant,  and  which  are  not,  in  a 
particular  analysis  of  vehicle  behavior.  Also,  as  seen  from 
literature,  some  vehicle  characteristics  which  appear  to  be 
important  in  a vehicle  maneuver  with  moderate  speed  become  less 
important  or  even  need  to  be  replaced  by  other  characteristics 
when  vehicle  speed  is  increased  or  when  the  vehicle  maneuver  is 
at  or  near  the  limits  of  tire-roadway  adhesion. 

The  effects  of  design  parameters  on  the  dynamic  response  of  a 
vehicle  or  vehicle's  subsystems  have  been  studied  by  researchers 
for  many  years.  One  of  the  earlier  studies  by  Dugoff  et  al.  [1]AA 
analyzed  the  influence  of  tire-mechanics  characteristics  on  the 
behavior  of  an  automobile.  They  examined  simulation  results  to 
assess  the  influence  of  variations  of  lateral  and  longitudinal 
tire  stiffnesses,  and  the  coefficient  of  friction  at  the  tire- 
road  interface  on  vehicle  steering  and  braking  responses. 
Bickerstaff  and  Hartley  [2]  have  investigated  light  truck  tire 
traction  properties  and  their  effect  on  braking  performance.  They 
showed  that  optimum  brake  proportioning  can  be  achieved  if  the 
effects  of  tire  traction  load  sensitivity  are  incorporated  into 
classical  braking  theory.  The  effects  of  longitudinal  and  lateral 
traction  transfers  on  the  behavior  of  all  wheel  drive  vehicles 
with  one  transverse  differential  has  been  described  by  Hall  [3]. 


AANumbers  in  parentheses  designate  references  at  the  end  of  report 
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More  recent  studies  include  an  analysis  by  Jaksch  [4]  on  the 
influence  of  various  vehicle  parameters,  such  as  front  axle 
normal  load,  torsional  stiffness  between  the  steering  wheel  and 
front  wheels,  aerodynamic  yaw  coefficient  and  tire  cornering 
stiffness  on  steering  control  characteristics.  The  investigation 
into  the  kinematic  and  dynamic  effects  of  more  than  two  dozen 
suspension  designs  on  light  vehicle  handling  and  steering  has 
been  performed  by  Nalecz  [5].  In  this  study,  the  spatial  movement 
of  vehicle  roll  axis  and  its  consequences,  such  as  variable 
distribution  of  lateral  weight  transfer  components  between  the 
wheels  have  been  utilized  to  determine  vehicle  behavior  at  the 
tire-roadway  limits  of  adhesion.  An  optimization  method  with  a 
directional  stability  constraint  imposed  has  been  used  by  Guntur 
et  al.  [6]  to  show  that  a trade-off  in  steerability  is  required 
to  achieve  maximum  braking  effectiveness. 

There  have  been  many  studies  performed  to  determine  the  effects 
of  vehicle  design,  driver  or  environmental  characteristics  on  the 
response  of  a vehicle  dynamic  system.  In  the  majority  of  these 
studies,  the  sensitivity  of  a vehicle  dynamic  system  to  parameter 
changes  has  been  determined  by  solving  the  system 9 s equations  of 
motion  twice,  first  with  and  then  without  having  the  parameters 
of  interest  included  (as  in  [7]).  Alternatively,  a method  based 
on  incremental  change  of  selected  parameters  until  the  system 
becomes  destabilized  has  been  used  (see  [8]).  However,  the 
significant  increase  of  computational  time  required  by  these 
methods  has  often  made  the  entire  analysis  inefficient  and 
incomplete.  In  the  case  of  a multi-parameter  vehicle  system  it  is 
difficult  to  examine  the  effect  of  each'  parameter  variation  on  a 
system's  dynamic  characteristics  based  on  its  equations  of 
motion.  Sensitivity  analysis  methods  appear  to  be  very  useful  in 
the  overall  analysis  and  synthesis  of  complex  vehicle  dynamic 
systems.  Their  major  advantages  are  that  they  allow  us  to 
determine  the  simultaneous  effects  of  all  parameters  on  the 
vehicle  system  response  with  no  limitation  as  to  the  complexity 
of  vehicle  model  analyzed  or  type  of  vehicle  maneuver  performed. 

Sensitivity  methods  were  first  applied  to  optimal  control  and 
automated  structural  optimization  in  which  gradient  methods  have 
been  used  to  find  the  search  directions  for  an  optimum  solution. 
More  recently,  sensitivity  methods  have  been  applied  to 
systematic  structural  optimization,  and  on  large  structural 
systems,  in  particular  [9].  An  interesting  survey  of  sensitivity 
methods  applicable  to  structural  optimization  is  presented  by 
Adelman  and  Haftka  [10].  This  reference  reviews  methods  for 
calculating  the  derivatives  of  static  displacements  and  stresses, 
eigenvalues  and  eigenvectors,  transient  structural  response,  and 
derivatives  of  optimum  structural  designs  with  respect  to  problem 
parameters.  Much  less  is  known  about  the  application  of 
sensitivity  methods  to  analysis  and  synthesis  of  mechanical 
systems  and  vehicle  dynamic  systems  in  particular. 

The  sensitivity  analysis  of  a vehicle  dynamic  system  can  be 
carried  on  in  both  frequency  and  time  domains.  Whenever  the 
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dynamic  characteristics  of  a vehicle  system  are  given  in  the  form 
of  amplitude  and  phase-f requency  characteristics,  or  equivalent 
frequency  transfer  functions,  the  sensitivity  functions  in  the 
frequency  domain  are  the  most  useful.  They  are  defined  in  terms 
of  the  system  structure  and  do  not  depend  on  the  actual  form  of 
the  input  excitation.  However,  if  a vehicle-driver-environment 
system  is  given  by  differential  equations  and  the  transient 
response  is  of  interest  to  us  sensitivity  analysis  in  the  time 
domain  is  very  useful. 
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2 . PROJECT  OBJECTIVES  AND  THEORETICAL  BASIS 


2 . 1 Obi ectives 


The  major  objective  of  this  project  is  the  development  of 
analytical  methods  and  computer  based  codes  for  conducting 
sensitivity  analysis  to  determine  the  effects  of  various  vehicle- 
driver-environment  parameters  on  vehicle  system  response.  The 
methods  developed  are  completely  general,  in  that  they  can  be 
applied  to  nonlinear  and  linear  systems  both  in  the  time  domain 
and  frequency  domain,  regardless  of  the  system's  degree  of 
complexity . 

Structured  and  modularized  programming  techniques  have  been 
utilized  in  the  software  development.  An  application  of  the 
sensitivity  analysis  programs  to  vehicle  handling  models  in 
various  maneuvers  is  illustrated  as  a part  of  this  project.  The 
sensitivity  algorithms  rank  the  vehicle  parameters  in  order  of 
their  influence  on  response  variables  in  time  domain,  steady 
state  and  frequency  domain. 


2 . 2 Sensitivity  Analysis  In  Time  Domain 


2.2.1  First  Order  Sensitivity  Functions 


An  n degree  of  freedom  nonlinear  vehicle  dynamic  system 
can  generally  be  described  by  a state  equation  with  initial 
condition 


x = f (x,p,t) , x(tQ)  = x° , 


(1) 


where  x denotes  the  n-dimensional  state  vector 


x 


( X 2 r X 2 / 


T 


f represents  a n-dimensional  nonlinear  vector  function 
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f = (f 


1'  f 2 ' 


T 


and  p denotes  a r-dimensional  parameter  vector 


P — ( P jl  ' P2  ' • • • / Pj»)  • 


To  determine  the  influence  of  parameter  variations  on  the  system 
response  (system  sensitivity  to  parameter  changes) , the  parameter 
vector  p shown  above  represents  the  actual  parameter  vector 


p = p0  + Ap 


(2) 


where  pQ  is  the  nominal  parameter  vector,  and  Ap  is  small  para- 
meter deviation.  To  fulfill  the  continuity  Lipschitz  condition, 
it  is  assumed  here  that  the  nonlinear  vector  function  f(x,p,t)  is 
of  the  same  type  as  f(x,p0,t),  and  that  f(x,p,t)  deviates 
infinitesimally  from  f(x,p0,t)  if  p deviates  infinitesimally  from 

Po* 


Taking  the  partial  derivative  of  Eq.  (1)  with  respect  to 
parameter  vector  p we  obtain  the  sensitivity  equation 


3f  3f 

u = — u + — 
dx  dp 


0 dx  n 
u ’ 


(3) 


where  u = dx/dp  is  known  as  the  sensitivity  matrix  of  the  form 


u = 


dx 

dp 


dxl  dxj 
^P2 


3xn  8xn 

3p7 


557 


dxT 


^p7  _ 


(4) 
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The  matrices  0f/  dx  and  0 f / 3p  can  be  written 


dX|  3x2 


3fi 


3f 

3x 


(5) 


£ 

dp 


3fn 

3fn 

_ rjx  | 

af, 

3f, 

¥7 

3p2 

3fn 

9fn 

*n 

_ dP\ 

SP2 

5fV 

(6) 


Note  that  all  partial  derivatives  shown  above  are  taken  at 
the  nominal  value  of  parameter  vectojr  Pq,  and  that  the  derivative 
of  the  initial  condition  vector  xu  with  respect  to  parameter 
vector  p disappears  since  x°  does  not  depend  on  p (see  Eq.  (3))= 

The  component  of  sensitivity  matrix  (4) 


3xk  k 

3pj  =“j 


is  called  the  first-order  sensitivity  function  (for  parameter  p^ 
and  state  variable  x^) . The  first-order  sensitivity  vector  for 
all  state  variables  with  respect  to  a parameter  pj  is  defined 
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dx  f dx i dx2 

[ 3pj  ’ 3pj  ’ 


’ aPj  J 


or 


Uj  = ( Uj 


n \ 
uj  > 


The  sensitivity  equations  are  always  linear  regardless  of 
the  system's  state  equation  structure.  The  various  types  of  first 
order  sensitivity  functions  that  are  utilized  in  this  project 
together  with  their  analytical  and  numerical  expressions,  and 
their  interpretation  are  described  in  Chapter  3. 

In  the  case  of  a linear  vehicle  dynamic  system  the  state 
equation  takes  the  form 


x = Ax  + By,  x ( t0  ) = x°  , 


(7) 


where,  in  general,  matrices  A = A(p),  B = B(p) , x = x(t,p),  and 
external  input  vector  y = y(t) . The  sensitivity  equation  is  then 
obtained 


c 3A  dB 

u = A0u  + — x0  + — y , 
dp  dp 


(8) 


where  AQ  = A(p0),  xQ  = x(t,p0),  and  the  partial  derivatives  3 A/dp 
and  dB/dp  are  taken  at  the  nominal  parameter  value  pQ. 


2.2.2  Primary  And  Secondary  Parameter  Case 


Let  the  parameter  vector  a be  represented  by 


a [^]_(Pj)f  ...  , as  (pj ) ] 


(9) 
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where  (i  = 1, . . . ,s)  denotes  secondary  parameters,  and  Pj 

(j  = l,...,r)  are  primary  parameters.  In  this  case  the  partial 
derivative  of  the  n-dimensional  nonlinear  vector  function  f(t,a) 


f (t,a)  = f [t,  a(pj ) ] 


f [t,  ax(pj) , 


as(Pj)]  (10) 


with  respect  to  parameter  Pj 


has  the  form 


3f  3f  3a}  3f  5as 

3pj  3a  i 3pj  3a2  3pj  3as  3pj 


(11) 


If  the  secondary  parameters  are  functions  of  all  system  primary 
parameters 


(p)  = a^pp  ...  f pr) 

a 2 = a2 (p)  = a2 (px,  . . . ,pr) 


as  = as^P)  = as<Pl' 


♦ ,pr) 


(12) 


the  partial 
parameters  p2, 


derivatives  of  f(t,a)  with  respect  to  primary 
. , pr  can  be  written  in  the  form 


3f 

3pi 


3f  3a| 
3a}  3p1 


3f  3a9 
+ — — =■  + 
3a2  3pt 


3f  3as 
3as  3pj 


3f 

dPr 


3f  3a j 
3a j 3pr 


3f  3a2 
3^  3pr 


3f  3as 
3as  3pr 


(13) 
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2.2.3  Second  Order  Sensitivity  Functions 


The  sensitivity  analysis  of  a vehicle  dynamic  system  based 
on  first  order  sensitivity  functions  is  usually  sufficient  to 
determine  the  effect  of  each  parameter  on  system  response. 
However,  when  a system  has  several  parameters  which  display 
similar  first  order  sensitivity  second  order  sensitivity 
functions  can  be  utilized  to  enhance  sensitivity  analysis.  The 
direct  interpretation  of  second  order  sensitivity  functions  leads 
to  conclusions  similar  to  those  obtained  using  the  first  order 
sensitivity  functions,  however,  the  sensitivity  functions  of 
second  order  are  more  "sensitive*  to  system  parameter  changes 
([12],  [15],  [17]). 

The  first  order  sensitivity  Eq.  (3)  for  parameter  p.:  can  be 
written  as  follows 


3x  df  dx  df 
+ 


dxc 


3pj  dx  dpj  3pj  ^Pj 


= 0 


(14) 


The  second  order  sensitivity  equation  can  be  obtained  by 
direct  differentiation  of  Eq.  (14)  with  respect  to  parameter  p j_ 


a 

( . ^ 

ax(p> 

a 

( 3f(x,p)  3x(p)  "j 

dPi 

9pj  J 

api 

dx  3p; 

l J J 

) 3 

( 9f(x,p)  "j 

, ' 3Pi 

aPi 

V J J 

(15) 


which,  after  transformations  yields 


df  a2f 

U;  ; = — Uj  + 

J’1  J’1  3v2  J 1 


a2f 


u;  + 


a2f 


dx2  J 1 dxdpi  J apjapi 


(16) 


where , 


dx 

dPi 


= Uj 


represents  FIRST-ORDER  SENSITIVITY  VECTOR, 


a2f 

apjapi 


= u 


J4 


represents  SECOND-ORDER  SENSITIVITY  VECTOR. 
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2.2.4  Types  of  Sensitivity  Functions 


The  first  and  second  order  sensitivity  functions  (together 
with  sensitivity  vectors  and  matrices)  presented  above  are  called 
standard  sensitivity  functions  (or  sensitivity  vectors  and 
matrices) . In  addition  to  the  standard  sensitivity  functions 
various  other  types  of  sensitivity  functions  such  as  percentage, 
logarithmic,  etc. , (both  dimensioned  and  dimensionless)  can  be 
introduced  into  analysis.  Depending  upon  the  sensitivity  problem 
some  types  of  sensitivity  functions  may  appear  to  be  more  useful 
than  others  in  sensitivity  investigation. 

The  various  types  of  sensitivity  functions  which  have  been 
introduced  and  utilized  in  this  project,  together  with  their 
definitions,  analytical  and  numerical  expressions,  and  interpre- 
tation are  given  in  Table  1 in  Chapter  3 . 


2.2.5  General  Sensitivity  Measure 


The  influence  of  parameter  p-j  on  all  state  variables  may  be 
analyzed  using  the  general  sensitivity  measure 


(17) 


where  n - is  a number  of  state  variables. 

When  the  influence  of  a parameter  vector  p = (p^,  ...  , p ) 
on  state  variable  xv  is  investigated,  the  general  sensitivity 
measure 


can  be  used  in  which  r - denotes  the  number  of  parameters  which 
compose  parameter  vector  p. 

In  both  expressions  (17)  and  (18)  the  v^  can  be  any  type  of 
sensitivity  function  (standard,  percentage/  logarithmic,  first 
and  second  order) . 
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2 . 3 Sensitivity  Analysis  In  Frequency  Domain 


A method  for  calculation  of  first  and  second  order  sensiti- 
vity matrices  in  the  frequency  domain  as  the  partial  derivatives 
of  the  transfer  function  matrix  taken  with  respect  to  the  system 
parameters  has  been  developed.  Logarithmic  sensitivity  functions 
of  amplitude-frequency  characteristics  and  general  sensitivity 
measures  have  been  introduced  for  effective  sensitivity  analysis. 
The  procedure  proposed  here  is  applicable  to  any  n degree  of 
freedom  linear  vehicle  system. 


2.3.1  First  And  Second  Order  Sensitivity  Matrices 


The  n degree  of  freedom  linear  vehicle  dynamic  system  can  be 
described  in  a general  case  by  the  equation  of  motion 


where,  M,  C and  K are  (n  x n)  matrices  of  inertia,  damping  and 
stiffness  respectively,  while  D and  E are  (n  x m)  matrices 
connected  with  the  m - dimensional  excitation  vector  u.  The 
generalized  accelerations  of  this  system  are 


Mq  + Cq  + Kq  = Du  + Eu 


(19) 


- 1 - 1 - 1 - 1 
q = -M  Cq  - M Kq  + M Du  + M Eu 


(20) 


Letting  p = q,  the  second  order  system  can  be  brought  to  the  set 
of  first  order  differential  equations 


q = p 


(21) 
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which  in  matrix  form  are  written 


1 

T3  • 
J 

-M  lC 

-M 

P 

M LD 

M 

• 

_ q J 

i 

M 

i 

o 

i 

cr 

i 

“I" 

( 

o 

0 

Introducing  a (2n  x 1)  state  vector  z and  (2m  x 1)  input  vector  v 


Eq.  (22)  becomes 


z 


Az  + Bv 


(23) 


(24) 


where  A is  (2n  x 2n)  state  matrix  and  B is  (2n  x 2m)  input  matrix. 
The  Laplace  transform  of  Eq.  (24) 

s . z ( s ) - Az (s)  = Bv(s) 

[si  - A]  z(s)  = Bv(s)  (25) 

z ( s ) = [si  - a]  Bv(s)  = G(s)  • v(s) 


For  s = j CD  , where  j = (~1) 2 the  transform  matrix  G(s)  becomes 
complex  transfer  matrix  G(jcj).  Both  real  and  imaginary  parts  of 
the  complex  transfer  matrix  G(j  CJ) 
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G(joo)  = P(oo)  + jQ(oj)  = G (a) 


(26) 


have  elements  which  depend  on  the  parameter  vector  a 


a — [&]_/•••/  ] 


The  k,l  -th  element  of  the  transfer  matrix  G 


!k,i(a)  = pk,i(a)  + Jqk,i(a) 


(27) 


The  first  and  second  order  sensitivity  matrices  are  defined 
as  the  partial  derivatives  of  transfer  matrix  G taken  with 
respect  to  system  parameters 


w. 

1 


9G(a) 


W.  . 

1J 


32G(a) 

3a. 8a.  a 

i j 0 


(28) 


where  aQ  represents  the  nominal  parameter  vector.  The  actual 
parameter  vector  a = aQ  + A a,  where  A a is  a small  parameter 
variation.  The  components  of  the  sensitivity  matrices  (Eq.  (28) ) 
are  standard  sensitivity  functions  of  first  and  second  order 


3g 


w 


i (k, 1) 


k,  1 


9 g 


9a. 

l 


w 


ij (k,l) 


k,l 


9a . 9a . 
i J 


(29) 
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2.3.2  Logarithmic  Sensitivity  Functions 


Just  as  with  sensitivity  analysis  in  time  domain  (Chapter 
2.2)  there  may  be  various  types  of  sensitivity  functions  may  be 
utilized  in  sensitivity  analysis  in  frequency  domain.  All  types 
of  applicable  sensitivity  functions  in  this  project  including 
their  definitions  and  interpretation  are  listed  in  Chapter  3. 


Logarithmic  sensitivity  functions,  which  possess  normalizing 
coefficients,  are  very  useful  when  sensitivity  analysis  is 
carried  out  in  the  frequency  domain  (see  [11],  [12],  [15]).  The 
k,l  - th  logarithmic  sensitivity  function  of  first  order  is 
defined 


s . 


i (k, 1) 


31nSk,l  _ 

31na.  wi(k,l) 


i 


’k,l 


a . 

i 


2 _L  2 

pk,i  + Vi 


3pk.l  3qk.l 

pk,l  3a.  qk,l  3a 


+ j 


9q 


k±i 


9p 


k , 1 9a 


- q 


k,l 


k,  1 9a 


(30) 


The  second  order  logarithmic  sensitivity  functions  can  be 
determined 


s . 


i, j (k,l) 


91nw.n  .. 
i (k , 1) 

z — = W 

91na . 

J 


a . 
J 


i.jOc,1)  w1(k>1) 
-1 


a . 
J 


[3pk,l] 

2 

4- 

[3Vi] 

2-, 

“ 

’3pk,i  32pk,i  3\,i  32qk,i 

9a . 

9a . 

9a  . 9a . 9a  . 9a  . 9a . 9a  . 

— 

1 1 J 

1 1 J 

L 

1 1 1 J 1 1 Ji 

(31) 


'3pk,i 

,2 

3 qk,l 

3qk,i 

a2 

3 pk,l 

9a . 
i 

9a . 9a . 
i J 

9a . 

l 

9a . 9a . 

1 Jj 

For  some  vehicle  dynamic  systems  it  is  beneficial  to  provide 
sensitivity  analysis  of  amplitude— frequency  and  phase- frequency 
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characteristics  instead  of  transfer  functions.  In  such  case  the 
amplitude-frequency  characteristic  for  k#l  - th  transfer  function 
(Eq.  (27)) 


2 j.  2 

8k,  1 ' 

Pk, 1 qk,l 

(32) 


and  the  phase-frequency  characteristic  is  given 


< P 


k,l 


arctan 


(33) 


It  can  be  shown  [15]  that  the  first  order  logarithmic  sensitivity 
function  of  an  amplitude-f requency  characteristic  (Eq.  (32)) 
equals  the  real  part  of  the  first  order  logarithmic  sensitivity 
function  Eq.  (30) 


6],  1 

; ' = Re{s  . . } = 

i(k,l)  i(k,l) 


a . 

l 


3p 


k,  1 


dq 


Pk,l  + qk,l 


k,l 


3a . 

i 


+ q 


k , 1 


k , 1 3a 


(34) 


and  the  first  order  logarithmic  sensitivity  function  of  the 
phase-frequency  characteristic  is  given 


vk,l 

Si(k,l) 


k,  1 


Im  (s . , . } 

i (k, 1) 


(35) 


The  complex  sensitivity  function  of  first  order  Eq.  (29) 


Wi(k,l) 


3p 


k^l 


3q 


3a . 
i 


+ j 


k,l 


3a . 

l 


(36) 
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has  an  absolute  value 


Wi(k,l) 


'^k.l1 

2 

+ 

3qk,i 

2 -1 

9a . 

9a . 

1 1 J 

1 

(37) 


and  the  phase 


9q  ./9a 

,w  k.l  1 

< p , = arctan  -r 7^ — 

k>1  3pk,i/3ai 


(38) 


The  second  order  logarithmic  sensitivity  function  of  the 
amp litude- frequency  characteristic  is  equal  to  the  real  part  of 
the  logarithmic  sensitivity  function  Eq.  (31),  [15] 


s ! . h 1 , . = Re{s  . - v } 

i,j(k,l)  i,j(k,l) 


-f3pk,ii 

2 

+ 

f^k,1] 

2-i 

.1 

9a . 

3a . 
1 

i 

_ 

'3pk,i  rpk,i  3qk,i  a2qk,i' 

9a  . 9a  . 9a  . 9a  . 9a  „ 9a  , 

1 1 1 3 1 1 JJ 

(39) 


Analogously,  the  second  order  logarithmic  sensitivity  function  of 
the  phase-frequency  characteristic  is  found 


w 


k,l 


i,j(k,l)  <f> 


— Im  {s  . . n . . } 

w i,j(k,l) 


k,l 


(40) 


The  first  order  logarithmic  sensitivity  functions  given  by 
Eq.  (30),  (34)  and  (35)  allow  us  to  determine  the  effects  of  a 

small  variation  in  parameter  &a^  on  the  transfer  functions, 
amplitude- frequency  and  phase-frequency  characteristics.  However, 
the  combined  effect  of  a selected  group  of  system  parameters 
making  up  a parameter  vector 
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a 


(41) 


on  the  amplitude-f requency  characteristic  can  be  analyzed  using  a 
general  sensitivity  measure  defined  as 


The  second  order  sensitivity  functions,  Eq.  (31) , (39)  and 
(40)  usually  preserve  the  qualitative  character  of  the  first 
order  sensitivity  functions  and  examples  show  that  they  can  be 
more  sensitive  to  system  parameter  changes  (see  [11],  [12]).  They 
are  very  useful  when  examining  the  influence  of  parameters  which 
are  nonlinear  functions  of  the  system's  dynamic  characteristics. 


2 . 4 Sensitivity  Analysis  of  Steady  State  Models 


Sensitivity  analysis  of  a steady  state  vehicle  model  can  be 
carried  out  in  three  different  ways.  While  working  with  a vehicle 
transient  model  the  sensitivity  methods  in  time  domain  described 
in  Chapter  2.2  can  be  applied  at  the  instant  when  a vehicle 
steady  state  is  achieved.  For  a vehicle  linear  transient  model 
the  sensitivity  methods  in  frequency  domain  can  be  utilized  by 
setting  the  input  frequency  to  zero  (Chapter  2.3).  Thirdly,  the 
methods  for  time  domain  sensitivity  can  be  easily  adopted  to 
provide  sensitivity  analysis  of  a vehicle  steady  state  model. 
Based  on  steady  state  equations  of  motion  (simultaneous  algebraic 
equations)  the  first  and  second  order  sensitivity  functions  can 
be  determined  by  taking  partial  derivatives  of  chosen  variables 
with  respect  to  the  parameters  of  interest. 

For  the  convenience  of  the  user  who  does  not  possess  a 
transient  vehicle  model  in  analytical  form  and  is  interested  in 
the  sensitivity  of  a steady  state  model  a separate  program  has 
been  developed  which  provides  sensitivity  analysis  if  the  steady 
state  equations  are  known.  A detailed  description  of  steady  state 
sensitivity  program  is  given  in  Chapter  4. 


(42) 
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3 . VARIOUS  TYPES  OF  SENSITIVITY  FUNCTIONS 


3 . 1 Expressions  For  Various  Types  of  Sensitivity  Functions 

TABLE  1. 


Sensitivity 

Type 

Analytical 

Expression 

Numerical 

Expression 

Unit 

1st  Order  Standard 

3v 

0P 

AV 

Ap 

Y 

P 

1st  Order  Percentage 

u** 

A V 

V 

1st  Order  Logarithmic 

3y  P 
dP  V 

Ay  p 
&P  V 

None 

2nd  Order  Standard 

92v 

0 p2 

*B?) 

Ap 

V 

P2 

General  Sensitivity 
Measure 

gsv  = E 

i=l 

1 

2 £ (Where  S^y  is 

Sj_v  sensitivity 

shown  above) 

any  of  the 
functions 

Note:  In  the  case  of  sensitivity  functions  in  the  frequency 
domain  the  variable  values  are  computed  as  either  the  magnitude 
or  phase  angle  of  a particular  complex  element  of  the  transfer 
function  matrix.  The  sensitivity  program  gives  the  user  the 
choice  of  either  method. 


3 . 2 Interpretation  of  Various  Sensitivity  Functions 


1st  Order  Standard  Sensitivity  Function 


The  first  order  standard  sensitivity  function  represents  the 
partial  derivative  of  a system  variable  taken  with  respect  to  a 
particular  system  parameter.  This  type  of  sensitivity  function 
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is  useful  for  determining  the  influence  of  a particular  parameter 
on  a particular  system  variable.  For  example,  if  a designer 
wished  to  analyze  the  influence  of  wheelbase  on  vehicle  yaw 
velocity  1st  order  standard  sensitivity  functions  could  be  used. 

A positive  value  of  1st  order  sensitivity  function  indicates  that 
increasing  the  value  of  the  system  parameter  will  increase  the 
value  of  the  system  variable.  It  is  important  to  note  that  the 
1st  order  sensitivity  function  deals  with  real  variable  values 
and  not  its  absolute  values.  In  other  words  if  a vehicle's  yaw 
velocity  changes  from  -0.5  to  -0.3  Rad/S  due  to  an  increase  in 
the  parameter  value  the  1st  order  sensitivity  function  will  be 
positive  because  -0.3  is  greater  than  -0.5.  A negative  value  of 
1st  order  sensitivity  indicates  that  increasing  the  value  of  the 
system  parameter  will  decrease  the  value  of  the  system  variable. 


1st  Order  Percentage  Sensitivity  Function 


The  1st  order  percentage  sensitivity  function  represents  the 
variable  change  caused  by  a parameter  change  of  some  user 
specified  percentage.  Percentage  sensitivity  functions  are 
useful  for  comparing  the  influence  of  various  parameters  on  a 
particular  system  variable.  For  example,  if  a designer  wanted  to 
know  if  a 2 percent  change  in  wheelbase  effected  yaw  angular 
velocity  more  than  a 2 percent  change  in  track  width  the 
percentage  sensitivity  function  would  show  the  change  in  yaw 
angular  velocity  associated  with  each  parameter  change.  Because 
percentage  sensitivity  functions  have  units  which  are  identical 
to  that  of  the  system  variable,  they  can  be  used  to  compare  the 
effects  of  various  parameters  on  a particular  variable. 


1st  Order  Logarithmic  Sensitivity  Function 


First  order  logarithmic  sensitivity  function  is  the  only  dimen- 
sionless sensitivity  function  available,  making  it  useful  to 
compare  and  rank  the  influence  of  various  parameters  on  system 
variables.  Users  should  be  aware  that  if  the  variable  value 
approaches  zero  then  the  logarithmic  sensitivity  functions  can 
become  very  large.  It  should  also  be  noted  that  the  change  of 
particular  logarithmic  sensitivity  value  over  time  is  dependent 
on  both  system  sensitivity  and  response,  which  may  make  interpre- 
tation of  the  time  behavior  of  a particular  logarithmic 
sensitivity  function  difficult.  However  logarithmic  sensitivity 
functions  are  useful  in  comparing  the  order  of  influence  of 
various  system  parameters  at  a particular  time. 
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First  order  logarithmic  sensitivity  functions  provide  information 
on  the  influence  of  system  parameters  on  the  absolute  values  of 
system  variables,  rather  than  the  real  values.  For  example  a 
positive  value  of  1st  order  log  sensitivity  indicates  that  the 
variable  being  investigated  will  assume  a greater  absolute  value 
if  the  parameter  value  is  increased.  If  the  1st  order  log 
sensitivity  is  negative  then  this  indicates  that  the  absolute 
value  of  the  variable  under  investigation  will  decrease  if  the 
parameter  value  is  increased.  However,  in  both  cases  the  real 
variable  values  may  be  positive  or  negative. 


2nd  Order  Standard  Sensitivity  Function 


Second  order  sensitivity  functions  represent  the  second  partial 
derivative  of  a system  variable  taken  with  respect  to  a system 
parameter.  The  second  order  sensitivity  function  can  be  used  to 
gain  additional  insight  into  results  obtained  using  first  order 
standard  sensitivity  functions.  When  the  system  exhibits  similar 
sensitivity  to  a number  of  parameters,  or  when  the  influence  of 
parameters  which  are  nonlinear  functions  of  system  characteris- 
tics  are  examined,  the  second  order  sensitivity  functions  can  be 
useful  in  particular. 


General  Sensitivity  Measure 


The  general  sensitivity  measure  determines  the  global  effect  of 
all  selected  parameters  on  a particular  variable.  This  is  useful 
for  analyzing  the  combined  effects  of  related  parameters.  For 
example,  one  could  compare  the  combined  effects  of  parameters 
describing  the  system's  stiffness  with  parameters  describing  the 
system's  mass  and  inertia  properties.  The  most  useful  types  of 
general  sensitivity  measures  are  based  on  percentage  and  first 
order  logarithmic  sensitivity  functions  because  these  methods 
possess  compatible  dimensions. 
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4 . NUMERICAL  METHODS  UTILIZED  IN  SENSITIVITY  PROGRAMS 


Three  programs  were  developed  for  determining  the  sensitivity 
functions  of  vehicle  systems.  The  first  program,  TRANS. FOR,  com- 
putes the  sensitivity  functions  of  models  which  are  written  in 
the  time  domain  and  describe  transient  behavior.  The  second, 
STEDY . FOR,  determines  the  sensitivity  functions  of  models  desc- 
ribing steady  state  behavior.  The  third  program  FREQD0M3 . FOR 
computes  sensitivity  functions  of  vehicle  models  written  in  the 
frequency  domain. 


4 . 1 Time  Domain  Sensitivity 


In  order  to  determine  the  sensitivity  functions  of  a model  which 
describes  a system's  transient  behavior  it  must  be  written  as  a 
system  of  first  order  differential  equations.  If  the  equations 
of  motion  of  a dynamic  system  are  given  by  a system  of  N second 
order  differential  equations,  this  set  of  equations  must  be 
brought  to  an  equivalent  set  of  2N  first  order  differential 
equations  written  in  the  following  form: 


xi  = fi(x,u,p,t) , for  i = 1,...,  2N  (43) 


Where  x__represents  the  state  vector  of  the  model,  u the  input 
vector,  p the  parameter  vector  and  t time. 

Once  this  has  been  done,  a fortran  subroutine  must  then  be  writ- 
ten to  compute  the  elements  of  the  state  vector  x(x^,  x2 , . . . , x2^) 


Case  I,  Primary  Parameters.  Primary  Variables 


For  primary  (constant)  parameters  and  primary  variables 
(variables  obtained  directly  from  model  integration)  the  first 
order  sensitivity  functions  are  determined  by  numerically  calc- 
ulating the  partial  derivatives  of  chosen  variables,  with  respect 
to  the  parameters  of  interest.  A central  difference  method  is 
used  to  determine  the  partial  derivatives.  The  program  gives  the 
user  a choice  of  selecting  either  a 3,  5 or  7 point  method  for 
numerical  differentiation.  The  formulas  used  for  the  three 
methods  are  shown  below. 
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3-Point 


y'i  = ( Yi+i  - Yi-i>  / 2h 


(44) 


5-Point 


y'i  = (-Yi+2  + 8Yi.+  l - 8Yi-l  + Yi-2>  / 12h  (45) 


7-Point 


y'i  = (Yi+3  ■ 9Yi+2  + 45Yi+l  - 45yi-l  + 9Y i-2  - Yi-3>  / 60h  <46> 


The  3 point  central  difference  method  requires  3 integrations  of 
the  equations  of  motion  during  each  time  step.  The  first  integra- 
tion is  performed  using  nominal  parameter  value,  the  second  uses 
a parameter  value  which  is  less  than  the  nominal  value  by  a 
percentage  specified  by  the  user  (usually  2%) , and  the  third 
integration  uses  a parameter  value  which  is  greater  than  the 
nominal  parameter  by  the  same  percentage.  The  program  then  takes 
the  results  of  the  three  model  evaluations  and  computes  the  the 
derivative  using  the  3 point  central  difference  formula  above. 
The  5 and  7 point  methods  work  in  a similar  way.  They  require 
additional  model  integrations  which  increase  the  accuracy  of  the 
numerical  differentiation,  but  require  more  time  to  compute.  The 
logarithmic  sensitivity  function  is  determined  by  multiplying  the 
first  order  sensitivity  function  by  the  nominal  parameter  value 
and  dividing  it  by  the  nominal  variable  value. 

The  second  order  sensitivity  function  (for  primary  parameters)  is 
determined  using  the  central  difference  expressions  for  second 
derivatives.  The  second  order  sensitivity  functions  can  also  be 
computed  using  a 3,  5,  or  7 point  central  difference  expression. 

These  expressions  are  shown  below: 


3-Point 


y"i  = ( Yi+l  - 2Y i + Yi-l)  / h2 


(47) 
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5-Point 


y " i = (-Yi+2  + 16Yi+l  ■ 3°Yi  + 16Yi-X  + Y i-2 ) / 12h2  (48> 

7-Point 

y"i  = ( 2y1+3  - 27yi+2  + 270yi+1  - 490yi  + 270yi_1 


- 27Yi_2  + 2yi+3)  / 180h2 


(49) 


Using  the  higher  order  5 and  7 point  derivative  formulas  will 
result  in  greater  accuracy,  at  the  expense  of  execution  time. 

Our  experience  showed  that,  for  first  order  standard  and  logarit- 
hmic sensitivity  functions,  there  was  little  difference  in 
results  between  the  three  differentiation  methods.  However, 
there  were  occasional  significant  differences  in  second  order 
sensitivity  values  when  different  methods  were  used.  Unless  the 
model  under  investigation  is  highly  nonlinear,  or  if  the  user  is 
interested  in  accurate  quantitative  values  of  second  order  sensi- 
tivity functions,  the  3 point  central  difference  method  should 
prove  adequate. 


Case  II.  Secondary  Parameters.  Primary  Variables 


For  secondary  parameters  (parameters  which  do  not  remain  con- 
stant) and  primary  variables  (variables  which  are  elements  of  the 
state  vector  and  obtained  directly  through  integration  of  the 
equations  of  motion)  a slightly  different  strategy  must  be  used 
to  compute  the  sensitivity  functions.  (An  example  of  a secondary 
parameter  would  be  tire  force,  which  is  a calculated  in  terms  of 
many  other  parameters  and  system  variables) . A secondary  para- 
meter coefficient  is  added  to  the  model  and  multiplied  by  the 
secondary  parameter  of  interest.  This  coefficient  has  a nominal 
value  of  1.0  and  is  varied  by  the  user  specified  percentage  to 
obtain  differing  responses  during  model  integration.  As  before 
the  user  is  given  the  choice  of  3 , 5 or  7 point  derivative 
computation.  A polynomial  is  then  fitted  through  the  set  of 
points  described  by  each  parameter  value  and  its  associated 
variable  using  the  method  of  least  squares.  The  first  and  second 
order  sensitivity  functions  are  then  computed  by  taking  the 
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analytical  first  and  second  derivatives  of  the  polynomial  at  the 
nominal  parameter  value.  It  should  be  noted  that  the  central 
difference  expressions  used  above  for  primary  parameters  cannot 
be  used  in  this  case  since  they  assume  a constant  parameter  step 
size  which  cannot  be  guaranteed  when  utilizing  secondary  para- 
meter coefficients.  A second  order  polynomial  can  be  fit  through 
three  points,  a forth  order  polynomial  can  be  fit  through  five 
points  and  a sixth  order  polynomial  is  fit  through  seven  points. 
An  example  is  shown  in  Fig.  1. 


Fig.  1 


Care  must  be  exercised  when  using  a polynomial  fit  through  7 points 
as  the  method  of  least  squares  guarantees  an  exact  fit  through  all 
points  and  can  sometimes  result  in  a highly  nonlinear  fit  through  a 
set  of  points  which  have  only  moderate  nonlinearity.  The  seven 
point  polynomial  fit  can  also  cause  computer  overflow,  resulting  in 
program  termination.  It  is  suggested  that  users  use  only  3 or  5 
point  derivatives  when  calculating  the  sensitivity  functions  of 
primary  variables  with  respect  to  secondary  parameters. 
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Case  III.  Secondary  Variables.  Primary  or  Secondary  Parameters 


For  secondary  variables  (variables  which  are  not  obtained  direct- 
ly from  integration,  but  those  which  are  functions  of  primary 
parameters  and  primary  variables,  i.e.  total  lateral  weight 
transfer)  still  another  method  must  be  used  to  compute  first  and 
second  order  sensitivity  functions.  Variable  values  are 
determined  at  3 , 5 or  7 points,  but  are  not  obtained  via  model 
integration,  but  instead  by  simple  model  evaluations.  The  model 
is  integrated  using  nominal  parameter  values  in  order  to  obtain 
the  system's  state  response.  Subsequent  secondary  variable 
evaluations  using  varied  parameter  values  are  obtained  from  model 
evaluations  based  on  these  state  variables. 

If  subsequent  variables  values  were  obtained  using  integration, 
rather  than  model  evaluations,  the  differences  in  parameter 
values  would  effect  the  the  primary  variables  obtained  through 
integration  which  define  the  dynamic  state  of  the  model.  This 
would  result  having  differing  vehicle  states,  one  for  each  para- 
meter variation  and  its  associated  model  integration,  making  it 
difficult  to  draw  conclusions  about  how  a particular  vehicle 
attribute  (such  as  total  lateral  weight  transfer)  is  effected  by 
the  parameter  change.  After  variables  are  calculated  via  model 
evaluation  the  first  and  second  order  sensitivity  values  can  be 
determined  by  using  the  central  difference  expressions. 

Secondary  parameters  are  manipulated  using  parameter  coefficients 
in  the  same  method  as  that  used  in  Case  II.  The  central  differ- 
ence expression  for  secondary  parameters  can  be  used  in  this  case 
because  the  parameter  step  size  remains  constant  if  the  model  is 
simply  evaluated  at  some  particular  state  rather  than  integrated. 

The  time  domain  sensitivity  algorithm  was  first  tested  using 
simple  2 and  3 degree  of  freedom  linear  vehicle  models.  The 
program  was  checked  to  see  that  the  models  were  integrated  prop- 
erly and  that  the  derivatives  were  properly  calculated.  After 
the  program  passed  these  tests  a non-linear  3 degree  of  freedom 
transient  vehicle  model  was  developed.  This  model  was  identical 
to  LWTS  and  ASMS  developed  and  copyrighted  by  Dr.  A.  G.  NaleczAA. 
The  simulation  was  again  checked  to  see  that  the  results  were 
correct.  The  sensitivity  values  were  checked  by  comparing  the 
sensitivity  program's  results  with  those  obtained  through 
successive  runs  of  LWTS  and  ASMS.  Later  a rollover  model  based  on 
the  Systems  Technology  Incorporated  simulation  was  developed  and 
investigated . 


Reprinted  from  "Lateral  Weight  Transfer  Simulation  (LWTS) " 
and  "Analysis  of  Suspension  Mechanics  Simulation  (ASMS) " by 
Dr.  A . G . Nalecz  by  permission  of  copyright  owner  (Dr.  A.G. 
Nalecz) . Year  of  first  publication  1986. 
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4 . 2 Steady  State  Sensitivity 


The  major  difference  between  a vehicle  model  which  evaluates  a 
vehicle's  steady  state  response  and  one  which  evaluates  its 
transient  response  is  that  the  time  rate  of  change  of  all  state 
velocities  (for  a system  written  in  a form  of  first  order 
differential  equations)  are  equal  to  zero.  This  results  in 
having  a set  of  simultaneous  algebraic  equations  (either  linear 
or  nonlinear  depending  on  the  model's  structure)  which  must  be 
solved  to  determine  the  vehicle's  response  to  driver/environment 
input,  rather  than  the  set  of  simultaneous  differential  equations 
commonly  associated  with  transient  behavior  simulations.  These 
steady  state  equations  take  on  the  following  form: 


f^(x,p,u)  = 0.0,  where  i = 1,...,  2N  (50) 


Once  these  equations  have  been  derived  a FORTRAN  subroutine  must 
be  written  to  evaluate  these  functions.  This  subroutine 
represents  the  steady  state  model. 

The  first  and  second  order  sensitivity  functions  are  determined 
by  taking  the  first  and  second  numerical  partial  derivatives  of 
the  chosen  variable  with  respect  to  the  parameter  of  interest.  A 
central  difference  method  identical  to  that  used  for  transient 
sensitivity  is  also  used  to  compute  the  partial  derivatives.  The 
logarithmic  sensitivity  functions  are  computed  by  multiplying  the 
first  order  sensitivity  functions  by  its  nominal  parameter  value 
and  dividing  it  by  the  variable  value  obtained  from  the  solution 
using  the  nominal  parameter  value.  The  values  for  percentage 
sensitivity  were  computed  as  the  difference  in  variable  value 
caused  by  a user  specified  percentage  parameter  change. 


Case  I.  Primary  Parameters.  Primary  Variables 


For  primary  (constant)  parameters  the  program  solves  the 
simultaneous  equations  of  motion  at  least  3 times.  First  at  the 
nominal  parameter  value,  and  then  using  parameter  values  which 
have  either  been  increased  or  decreased  by  a percentage  specified 
by  the  user.  Primary  variables  are  obtained  directly  from  the 
solution  of  simultaneous  equations,  while  secondary  variables  are 
obtained  from  an  additional  model  evaluation  which  uses  the 
previous  solution  to  the  simultaneous  equations  of  motion.  As 
with  the  transient  sensitivity  program,  the  steady  state  sens- 
itivity program  can  evaluate  partial  derivatives  based  on  3,  5, 
or  7 points,  with  the  seven  point  method  being  the  most  accurate, 
but  taking  the  most  time. 
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Case  II.  Secondary  Parameters.  Primary  Variables 


When  finding  the  sensitivity  functions  of  primary  variables  with 
respect  to  secondary  parameters  the  program  uses  a coefficient 
method  similar  to  that  used  for  transient  sensitivity.  A second- 
ary parameter  coefficient  is  added  to  the  model  and  is  multiplied 
by  the  parameter  of  interest.  This  coefficient  has  a nominal 
value  of  1.0  and  is  varied  by  the  user  specified  percentage  to 
obtain  differing  model  solutions.  Because  this  method  does  not 
guarantee  a constant  parameter  step  size  between  variable  evalua- 
tions these  partial  derivatives  are  determined  by  taking  the 
analytical  derivative  of  a polynomial  curve  which  is  fitted 
through  the  parameter/variable  points,  just  as  done  in  the 
transient  sensitivity  algorithm.  Care  should  be  exercised  when 
evaluating  the  sensitivity  functions  of  secondary  parameters  and 
primary  variables  with  7 evaluation  points. 


Case  III.  Secondary  Parameters,  Secondary  Variables 


The  sensitivity  functions  of  secondary  variables  with  respect  to 
secondary  parameters  are  found  by  first  obtaining  a solution  to 
the  simultaneous  equations  of  motion  at  the  nominal  parameter 
values  (with  secondary  parameter  coefficients  equal  to  1.0). 
Once  a solution  is  found  the  secondary  parameter  coefficients  are 
varied  by  the  user  specified  percentage  and  the  steady  state 
model  is  evaluated  using  the  primary  (state)  variables  obtained 
from  the  solution  using  the  nominal  parameter  values.  The  dif- 
fering model  responses  are  then  used  to  compute  the  partial 
derivatives  by  using  a central  difference  equation. 

The  program  was  tested  using  2 and  3 degree  of  freedom  linear 
models.  The  program  was  checked  to  see  that  the  simultaneous 
equations  were  properly  solved.  Parameters  were  varied  8 by  hand* 
on  the  2 and  3 degree  of  freedom  models  and  the  sensitivity 
functions  obtained  from  these  runs  were  compared  to  those 
obtained  using  the  steady  state  sensitivity  algorithm.  After 
results  from  the  simple  models  agreed  with  those  obtained  from 
the  steady  state  sensitivity  algorithm  a 3 degree  of  freedom 
nonlinear  model  similar  to  LWTS  and  ASMS  developed  and  copyrig- 
hted by  Dr.  A. G.  Nalecz  was  written  and  the  results  evaluated. 
The  steady  state  sensitivity  algorithm  was  again  checked  to  see 
that  the  solutions  to  the  simultaneous  equations  agreed  with 
those  obtained  using  LWTS  and  ASMS  simulations. 
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4 . 3 Sensitivity  Analysis  in  the  Frequency  Domain 


Program  FREQD0M3 . FOR  was  written  to  analyze  sensitivity  functions 
of  vehicle  models  in  the  frequency  domain.  The  sensitivity 
functions  were  computed  as  first  and  second  derivatives  of 
elements  of  the  transfer  function  matrix  taken  with  respect  to 
the  parameter  of  interest.  The  sensitivity  functions  were 
determined  over  a given  range  of  input  excitation  frequencies. 
Logarithmic  derivatives  were  again  computed  by  multiplying  the 
first  order  sensitivity  functions  by  the  nominal  parameter  value 
and  dividing  it  by  the  nominal  variable  value. 

The  program  uses  the  finite  difference  formulas  listed  previously 
to  compute  the  first  and  second  order  sensitivity  functions.  The 
user  has  the  option  of  selecting  either  3,  5 or  7 point  deriv- 
ative calculations.  The  program  varies  the  parameter  from  its 
nominal  value  by  a user  specified  percentage  to  obtain  the 
values  for  the  points  used  in  derivative  calculations. 


Frequency  Domain  Model  & Transfer  Function  Evaluation 


Models  written  in  the  frequency  domain  originate  from  the  2nd 
order  linear  differential  equations  of  motion  of  the  vehicle. 
These  equations  take  the  form: 


o • * 

[A]  X + [B]  X 4-  [C]  X = [ D]U 


(51) 


where  X represents  the  N x 1 vector  of  state  variables,  [A] 
represents  the  inertia  matrix,  [B]  the  damping  matrix,  [C]  the 
stiffness  matrix  and  U the  system  input.  Matrices  [A],  [B] , and 
[C]  have  dimensions  N x N and  matrix  [D]  is  dimensioned  N x 1. 
These  differential  equations  of  motion  are  then  brought  to  the 
first  order  form: 


XI  = [Al]  XI  + [DX]U1  (52) 


where  XI  is  a 2N  x 1 vector  of  state  variables,  and  [Al]  is  a 2N 
x 2N  coefficient  matrix.  [Dl]  represents  a 2N  x 1 matrix,  while 
[Ul]  represents  the  system  input,  e.g.  steer  angle. 
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Once  the  elements  of  matrix  [Al]  and  [Dl]  have  been  computed  we 
can  then  determine  the  transfer  function  matrix  of  the  system. 
The  transfer  function  matrix  [T]  is  calculated  using  the  follo- 
wing relationship: 


[T]  = -[Dl]  * { [Al]  - j * [I]  * S } 


(53) 


Where  matrix  [I]  represents  the  identity  matrix,  S represents  the 
excitation  frequency  and  j is  the  square  root  of  -1. 

The  transfer  function  matrix  is  a complex  matrix  of  dimensions  2N 
x 1.  The  frequency  domain  sensitivity  algorithm  computes  the 
partial  derivative  of  either  the  phase  angle  or  amplitude  of 
elements  of  the  transfer  function  matrix  with  respect  to  constant 
system  parameters  over  a user  specified  frequency  range.  The 
program  allows  the  user  to  select  his  choice  of  either  phase  or 
amplitude  sensitivity.  The  amplitude  of  a transfer  function 
element  is  determined  by  taking  the  square  root  of  the  sum  of  the 
real  component  squared  and  the  imaginary  component  squared.  The 
phase  angle  is  computed  by  taking  the  arctangent  of  the  imaginary 
component  divided  by  the  real  component. 

The  program  was  tested  on  a simple  spring-mass-dashpot  system  to 
see  that  the  transfer  function  matrix  was  computed  properly,  and 
that  the  sensitivity  program  gave  reasonable  results.  After 
these  checks  were  completed  a simple  linear  2 degree  of  freedom 
bicycle  type  model  was  developed.  After  evaluating  the 
sensitivity  functions  of  this  model  is  was  determined  that  a more 
complex  model  would  be  required  to  obtain  meaningful  results.  A 
linear  3 degree  of  freedom  vehicle  model  which  included  the 
effects  of  lateral  weight  transfer  was  developed  and  tested. 
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5 . SENSITIVITY  ANALYSIS  OF  NONLINEAR  VEHICLE  MODEL  IN  TIME  DOMAIN 


5 . 1 Vehicle  Handling  Model 


A nonlinear  vehicle  transient  model  developed  by  Nalecz  [5] 
and  used  to  investigate  the  effects  of  a variety  of  suspension 
designs  on  the  handling  and  stability  of  light  vehicles  has  been 
chosen  for  sensitivity  analysis.  This  is  a three  dimensional 
vehicle  model  (Figs.  2,3  and  4)  which  consists  of  sprung  and 
unsprung  masses  of  front  and  rear  connected  through  suspension 
elements.  The  suspension  systems  that  can  be  chosen  during  the 
generation  of  a vehicle  model  cover  a wide  range  of  independent, 
semi-independent  and  nonindependent  suspensions. 


The  vehicle  model  assumed  for  analysis  has  three  degrees  of 
freedom:  lateral  displacement,  yawing  and  rolling  motions. 
Although  the  pitching  of  the  sprung  mass  is  not  explicitly 
included  its  principal  effect,  which  is  to  deflect  the  front 
suspension  (during  braking)  and  to  alter  the  normal  wheel  loads, 
and  hence  the  resulting  tire  forces,  is  accounted  for  by  means  of 
a quasi-static  approximation. 


The  capability  of  implementing  various  suspension  systems  on 
the  vehicle  model  allows  the  utilization  of  kinematic  and  dynamic 
effects  of  chosen  suspensions  on  vehicle  lateral  and  directional 
response.  The  kinematic  and  dynamic  effects  of  suspension  systems 
are  included  in  this  model  through  the  change  of  position  of  the 
suspension  roll  centers  and  the  vehicle  roll  axis.  The  change  in 
the  position  of  the  vehicle  roll  axis  affects  the  sprung  mass 
roll  moment  arm  (Figs.  3 and  4)  and  hence  the  distribution  of 
lateral  weight  transfer.  The  lateral  weight  transfer,  which  is 
calculated  for  the  front  and  rear  suspensions  separately  is 
totaled  from  lateral  weight  transfer  due  to  body  roll,  roll 
center  height  and  unsprung  mass.  These  components  of  lateral 
weight  transfer  influence  the  wheel  normal  loads  and  tire  forces 
generated. 


The  dynamic  equations  of  motion  of  the  vehicle  model  assumed 
can  be  written  as  follows  (the  notation  is  defined  in  the 
nomenclature) 


IY  = M(V  + Ur)  + Ms  hRA  p + Muf  a F (p)  + Mur  aR  (p) 


(54) 


IN  = Izr 


(55) 


ILS  = IXs  p + MshRA(V  + Ur) 


(56) 
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Fig.  2.  Vehicle  orientation  and  tire  forces 


Fig.  3.  Vehicle  roll  axis  and  mass  distribution 
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RDLL  AXIS 


Fig.  4.  Roll  axis  representation  of  vehicle 


FRICTION  ELLIPSE  FOR 
BRAKING  AND  CORNERING 


FRICTION  ELLIPSE 
FOR  TRACTION  ANB  CORNERING 


Fig.  5.  Friction  ellipse  concept  in  combined  vehicle  maneuvers 
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Neglecting  the  aerodynamic  load,  the  side  force  and  yawing  moment 
acting  on  a vehicle  result  from  tire  side  forces  and  aligning 
torques.  The  rolling  motion  of  the  sprung  mass  about  its  roll 
axis  is  provided  by  the  spring  and  damping  elements  of  a vehicle 
suspensions 


XY  Fyfo  + Fyfi  + Fyro  + Fyh 


(57) 


3Nf  3Nr 

XN  = a(Fyf0  + Fyfj)  — b(Fyro  + Fyj-j)  + Of  + ar 


(58) 


L dLRA^x  5LRA 

XLS  = (MsghRA  - )<)>  - 


(59) 


Vehicle  braking  or  traction  is  represented  in  the  model  by  wheels 


longitudinal  forces 

where  for  thrust, 

if  ax  < 0 
if  ax  < 0 

for  moderate  braking 

(0  ax  ^ 0 . 3g) 

for  heavy  braking 
( 0 . 3g  < ax) 


Fxf  MaxQ 
Fxr  = Max(l-Q) 


and 

FWD, 

then 

and 

RWD, 

then 

Q = Qo 


Q = Qo  + 


(60) 


Q = 1 
Q = 0 , 

and 


,(ax  - 0.3) 
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As  described  below  the  braking  or  thrust  forces  imposed  on  wheels 
influence  the  tires  saturation  limits. 

The  front  and  rear  lateral  weight  transfers  are  determined 


Wyp  - Wgp  + WRp  + Wyp  - 


w 


TR 


Mq3.v  / kf 

= (hRA  COS*  ^ 


WBR  + WRR  + WUR 


bhf  \ 

+ ^ " j + MUf  3y 


huf 

tf 


( 6 1 ; 


Msav  / kf  a h f \ 

= T1  (hRA  C0S<t>  kjot  + ~ L-) 


. . nur 
+ MUr  ay  — 


The  normal  load  of  each  wheel  is  computed  from  the  static  load, 
the  longitudinal  weight  transfer  due  to  forward  deceleration  (or 
acceleration) , and  the  lateral  weight  transfer  due  to  lateral 
acceleration 


^ Mgb  Msaxgh 
hzfo  ~ 2L  + 2L  + 


Wtf 


Fzfi 


Mgb  Msaxgh 
2L  + 2L 


zro 


Mga 

__ 


Msaxgh 

2L 


WTR 


Mga 

'zri  “ 2L 


Msaxgh 

2L 


(62) 


WTR 


The  tire  side  forces  are  functions  of  the  normal  load,  slip 
angle  variable,  lateral  force  coefficient  and  skid  number 


Fyfo 

Fyfi 


SN  M-yfo  Fzfo  ^ + 


SN 


^yfi  Fzfi  ^ + 


l^J 

^Fy' 


dy 

f a<t> 

ay 

f a<j) 


SN  M-yro  Fzro  ^ 

(63) 

SN  |lyrj  FZfi  f (^xi) 
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where  the  normalized  side  force  functions  are 


f «xfo) 

f (Ofi) 
f (Otfo) 
f (^ri) 


1 

_ 

i - l 

1 

-3 

afo 

3 

afo 

1 OCfo  1 

+ 

27 

afo 

1 

1 

-3 

= Ofi  - 

3 

OCfi 

l«fil 

+ 

27 

afi 

1 

1 

-3 

= ^TO 

3 

1 CCj-Q  | 

+ 

27 

a 

ro 

1 

1 

-3 

= Ori  - 

3 

«ri 

lorfl 

+ 

27 

ari 

and  the  slip  angles'  variables 


(64) 


Of 

otf0  = CFO  ■■ 

(RDCL)2 


ol-q  = CRO  — 
(RDCL)4 


afl 


^ri 


CFI 


CRI 


af 

(RDCL)  j 
Or 

(RDCL)  3 


(65) 


The  slip  angles  for  the  front  and  rear  axles  are  determined 


ttf  = 8 


tan-1 


V + ar 
U 


38r  , br  - V 

“r  = ** + tan'1~-u~ 


(66) 


and  the  radicals  in  Eqs.  (65) 
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(RDCL)2 

(RDCL)t 

(RDCL)4 

(RDCL)3 


^ (SN  M-yfo  Fzf0)~ 
((SNHyfiFzfi)2 

^ (SN  M-yro  ^zro^ 
^ (SN  ^yrj  Fzrj  )“ 


9 -L 

(M-yfo  / M-Xfo^  Fxfo  j 2 
9 i 

(M-yfi  / M-xfi  Fxfij2 

2 I 

(^yro  / M-xro^  Fxroj  2 

2 I 

(fJ-yri  / M-xri  Fxrij2 


(67) 


The  cornering  stiffnesses  CFO,  CFX,  CRO  and  CRI  in  Eqs.  (65),  as 
well  as  peak  braking  and  lateral  force  coefficients  in  Eqs.  (67) 
and  (63)  are  nonlinear  functions  of  wheel  normal  loads  and  are 
determined  from  Calspan  tire  measurement  [18]  as  explained  in 
[5]  . 


The  tire  adhesion  model  based  on  extended  friction  ellipse 
concept  (Fig.  5)  using  Calspan  tire  measurement  has  been  employed 
into  the  simulation.  The  tires'  maximum  side  forces  in  combined 
cornering  and  braking,  or  cornering  and  accelerating  maneuvers 
are  found  from  the  friction  ellipse 
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where  the  maximum  side  forces  in  case  of  zero  longitudinal 
acceleration  (ax  = 0)  are  defined 


(Fyfo^max  SN  |iyf0  ^zfo 


(Fyfi)max  “ SN  F-yfi  Fzfi 


(69) 


(Fyro)  max 


- SN  ^iyro  Fzro 


^Fyri) 

max 


SN  fiyj-j  Fzrj 


The  tires  maximum  longitudinal  forces,  as  determined  for  zero 
lateral  acceleration  (a^  = 0)  are 


(Fxfo)max  — SN  [ixf0  Fzfo 


(Fxfi^max  ” ^N  F-xfi  Fzfi 


(70) 


^xro^max  ^xro  ^zro 


max 


SN  |lxrj 


In  the  vehicle  model  the  friction  ellipse,  which  determines 
the  maximum  allowable  tire  force  in  combined  steering  and  braking 
(or  accelerating)  maneuvers  as  well  as  the  actual  tire  force  are 
separately  generated  for  each  wheel  instead  of  each  axle.  Also, 
the  sizes  of  the  four  friction  ellipses  continuously  change  since 
the  wheel  normal  load  is  continuously  updated  (tire's  saturation 
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limits  are  functions  of  normal  loads) . Comparison  of  the  actual 
and  the  maximum  allowable  force  on  each  wheel  allows  the 
determination  of  the  sequence  in  which  generated  tire  forces  on 
all  wheels  approach  the  limits  of  adhesion,  and  hence,  cause 
wheel  lock  up.  This  order  carries  important  information  about 
undesirable  vehicle  responses  such  as  instability  and  loss  of 
steerability. 


5 . 2 Transient  Sensitivity  Results 


The  sensitivity  analysis  of  the  nonlinear  vehicle  model 
described  above  has  been  carried  out  utilizing  the  methodology 
presented  in  Chapters  2.3  and  4.1.  The  numerical  results  shown 
below  have  been  obtained  for  a vehicle  forward  speed  U = 25  m/s 
and  vehicle  data  listed  in  Table  2. 

Figs.  6,  7 and  8 represent  the  vehicle  yaw  velocity,  lateral 
velocity  and  sprung  mass  roll  angle  as  a function  of  time  for  the 
vehicle  given  a step  steering  input  of  1 deg.  As  seen  from  these 
plots  the  vehicle  transient  motion  lasts  approximately  2 seconds. 
For  this  reason  the  time  domain  sensitivity  graphs  have  been 
plotted  for  up  to  2 seconds. 

The  time  domain  sensitivity  analysis  has  been  carried  out 
for  vehicle  primary  and  secondary  parameters  grouped  into  6 
parameter  vectors 
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TABLE  2.  VEHICLE  DATA  FOR  SENSITIVITY  ANALYSIS 

IN  TIME 

DOMAIN 

Vehicle  mass  (M) 

1230 

[kg] 

Vehicle  sprung  mass  (Ms) 

1095 

[kg] 

Vehicle  front  unsprung  mass  (Muf) 

77 

[kg] 

Vehicle  rear  unsprung  mass  (Mur) 

58 

[kg] 

Sprung  mass  roll  moment  of  inertia  (Ix) 

400 

[kgm2] 

Vehicle  yaw  moment  of  inertia  (Iz) 

2000 

[kgm2] 

Front  suspension  roll  stiffness  (k^) 

21355 

[Nm/rad] 

Rear  suspension  roll  stiffness  (kr) 

13028 

[Nm/rad] 

Total  suspension  roll  damping  (0LRA/0p) 

1600 

[Nms/rad] 

Wheelbase  (L) 

2 . 66 

[m] 

Dist.  from  vehicle  CG  to  front  axle  (a) 

0.87 

[m] 

CG  height  of  sprung  mass  (h) 

0.60 

[m] 

CG  height  of  front  unsprung  mass  (huf) 

0.31 

[m] 

CG  height  of  rear  unsprung  mass  (hur) 

0.31 

[m] 

Dist.  from  sprung  mass  CG  to  roll  axis  (hra) 

0.41 

[m] 

Front  roll  center  height  (hf) 

0.127 

[m] 

Rear  roll  center  height  (hr) 

0.305 

[m] 

Front  track  width  (tf) 

1.49 

[m] 

Rear  track  width  (tr) 

1.45 

[m] 

Rate  of  front  wheel  incl.  with  roll  (dtf'/dfy) 

0.1 

Steer  of  rear  wheel/body  roll  (d<fr/dty) 

0.05 

Front/rear  braking  distribution  (Q0) 

0.6 

Heavy  braking  proportion  (Qx) 

0.1 

Front  wheel  drive? 

Yes 
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TABLE  2 


(Concluded) 


CALSPAN  coefficient  AO 
CALSPAN  coefficient  A1 
CALSPAN  coefficient  A2 
CALSPAN  coefficient  B1 
CALSPAN  coefficient  B3 
CALSPAN  coefficient  B4 
CALSPAN  coefficient  PO 
CALSPAN  coefficient  PI 
CALSPAN  coefficient  P2 
Skid  number  (SN) 

Aligning  stiffness  of  front  tires  (3Nf/doCf) 
Aligning  stiffness  of  rear  tires  (3Nr/3oCr) 
Inclination  stiffness  of  front  tires  (3Fy/3^>) 


2380.2 
9.36 

3621.2 
-2 . 876E-04 

1.274 
2 . 6550E-08 
1.1972 
-2.992E-04 
5.205E-Q8 
85.0 
3000 
3000 
6000 


[Nm/rad] 

[Nm/rad] 

[N/rad] 
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Yaw  Velocity  Sensitivity 


The  influence  of  parameter  changes  of  vector  p-j_  on  vehicle 
yaw  angular  velocity  is  shown  in  Figs.  9,  10  and  11  which  repre- 
sent the  percentage,  first  order  logarithmic  and  first  order 
standard  sensitivity  functions  respectively.  The  percentage  sen- 
sitivity functions  (Fig.  9)  for  parameters  a,  hj^,  Ms,  WTR  and 
kr  are  positive  which  indicates  that  the  increase  in  values  of 
these  parameters  increases  the  vehicle  yaw  velocity.  Among  these 
parameters  the  CG  distance  to  ffont  axle  a has  the  largest,  and 
the  stiffness  of  rear  suspension  k~,  has  the  smallest  influence  on 
yaw  angular  velocity.  The  percentage  sensitivity  functions  for 
parameters  k^  and  WTF  have  negative  values  which  means  that 
increasing  these  parameters  decreases  vehicle  yaw  velocity. 
During  first  stage  of  transient  response  (0  - 0.75  s)  the  percen- 
tage sensitivity  function  for  vehicle  yaw  moment  of  inertia  Iz  is 
negative,  and  then  becomes  positive  (0.75  s)  until  it  reaches  a 
value  of  0 in  steady  state.  The  percentage  sensitivity  functions 
for  total  suspension  damping  9Lra/  9p  and  vehicle  CG  height  h 
are  nearly  zero  which  indicates  these  parameters  have  little  or 
no  influence  on  yaw  velocity. 

The  first  order  logarithmic  sensitivity  functions  of  vehicle 
yaw  velocity  for  the  parameters  composing  parameter  vector  p^ 
are  shown  in  Fig.  10.  From  the  comparison  of  Figs.  9 and  10  it 
can  be  seen  that  the  parameters"  effect  based  on  logarithmic 
sensitivity  functions  is  almost  identical  to  that  of  the 
percentage  sensitivity  functions.  The  difference  in  the  shape  of 
logarithmic  and  percentage  sensitivity  curves  for  a and  Iz  at  the 
beginning  of  transient  motion  (Figs.  9 and  10)  is  caused  by  a 
logarithmic  function  which  assumes  large  absolute  values  when  the 
vehicle  yaw  velocity  is  close  to  zero.  In  both  Figs.,  however, 
the  parameters  a and  Xz  appear  to  be  the  most  influential  up  to 
0.65  s,  and  the  parameters  h and  dLj^/Sp  have  practically  no 
effect  on  yaw  velocity  in  vehicle  transient  response.  The 
elements  of  parameter  vector  pF  are  ranked  in  the  same  order  of 
influence  on  vehicle  yaw  velocity  regardless  whether  the 
percentage  or  first  order  logarithmic  sensitivity  functions  are 
used  as  a base  of  comparison. 

The  first  order  standard  sensitivity  functions  of  vehicle 
yaw  velocity  are  plotted  in  Fig.  11.  Based  on  the  definition  of 
first  order  standard  sensitivity  function  (Chapter  3)  they  repre- 
sent the  change  in  system  variable  per  unit  increase  in  parameter 
value.  In  case  of  the  vehicle  yaw  velocity  and  the  parameter 
vector  p1#  the  first  order  standard  sensitivity  functions  for 
parameters  a and  are  positive  which  means  that  the  unit 
increase  of  a and  h^  results  in  increase  of  vehicle  yaw  veloci- 
ty. Fig.  11  also  shows  that  the  first  order  standard  sensitivity 
functions  for  all  other  parameters  composed  to  the  vector  are 
zero  which  indicates  that  the  unit  increase  of  these  parameters 
has  no  influence  on  yaw  velocity  at  all.  A lack  of  influence 
of  parameters  Ms,  Iz,  kf,  kr,  WTR,  WTR  and  9Lr&/  3p  on 
vehicle  yaw  velocity  can  be  explained  by  fact  that  a unit 
increase  of  these  parameters  results  in  a relatively  small 
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(almost  negligible)  parameter  increase.  Lack  of  influence  of 
parameter  h,  however,  whose  nominal  value  is  0.41  m and  the  unit 
increase  brings  it  to  1.41  m (very  large  increase),  proves  that 
parameter  h has  no  effect  on  yaw  velocity  whatsoever.  This 
conclusion  can  also  be  found  from  Figs.  9 and  10. 

The  standard  sensitivity  function  is  useful  for  determining 
the  influence  of  a particular  parameter  on  a particular  system 
variable.  However,  no  direct  comparisons  should  be  made  with 
reference  to  ranking  the  parameters  in  order  of  their  influence 
on  system  variable  based  on  the  standard  sensitivity  functions, 
for  two  reasons.  First,  as  partially  explained  above,  for  the 
nominal  parameter  values  given  in  Table  2 a unit  increase  of 
parameters  a,  h-^  and  I2  represent  115  %,  244  % and  0.05  % 
changes  in  these  parameters  respectively,  and  therefore  they  are 
not  comparable.  Secondly,  the  standard  sensitivity  functions  for 
various  types  of  system  parameters  such  as  geometrical,  mass, 
stiffness,  damping,  etc.,  have  different  units,  making  their 
comparison  difficult. 

The  first  order  percentage  and  logarithmic  are  the  two  types 
of  sensitivity  functions  which  prove  to  be  the  most  useful  when 
carrying  out  sensitivity  analysis  of  multi-parameter  vehicle 
systems  and  the  order  of  parameter  influence  is  to  fee  determined. 
Since  the  percentage  sensitivity  functions  deal  with  real 
variable  values,  and  not  absolute  values  (logarithmic  sensitivity 
function)  they  have  been  chosen  for  further  analysis. 


Lateral  Velocity  Sensitivity 

The  influence  of  variations  in  the  parameter  vector  on 

vehicle  lateral  velocity  is  shown  in  Fig.  12.  The  parameters  Ms, 
hRA  and  Iz  have  the  largest  influence  among  all  elements  of 
vector  pq . The  percentage  sensitivity  function  for  parameter  a 
(CG  distance  to  front  axle)  remains  negative  throughout  the 
transient  motion  which  indicates  that  increasing  parameter  a 
decreases  lateral  velocity.  Parameters  hpj^  and  Ms  behave  in  a 
manner  similar  to  parameter  a after  0.25  sec.,  although  they 
appear  to  be  less  sensitive  than  a.  During  the  first  0.25  s 
increases  of  hp*  and  Ms  result  in  increase  in  lateral  velocity. 
It  is  interesting  to  nouice  the  similar  sensitivity  properties 
exhibited  by  these  two  parameters.  This  is  due  to  the  structure 
of  the  vehicle  model.  An  increase  in  yaw  inertia  moment 
causes  an  increase  in  lateral  velocity  during  the  first  1.2  s and 
after  that  its  influence  diminishes  to  zero  at  vehicle  steady 
state. 


Roll  Angle  Sensitivity 

The  sprung  mass  roll  angle  (Fig.  13)  seems  to  be  most  sensi- 
tive to  the  variation  in  parameters  Ms  and  hj^,  whose  sensitivity 
curves  coincide  over  the  entire  range  of  A transient  vehicle 
motion.  The  parameter  a has  the  same  qualitative  influence  as 
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the  first  two  parameters  (an  increase  in  a decreases  roll  angle) , 
although  to  a lesser  degree  than  in  the  case  of  lateral  velocity 
(Fig.  12) . The  yaw  moment  of  inertia  I2  mainly  affects  the 
sprung  mass  roll  angle  (Fig.  13)  in  the  first  half  of  transient 
motion,  and  to  a lesser  degree  than  the  lateral  velocity  (Fig. 
12) . It  seems  that  the  decreased  effect  of  Iz  on  sprung  mass 
roll  angle  (seen  when  comparing  Fig.  12  to  Fig.  13)  is  compen- 
sated for  by  the  increased  influence  of  suspension  damping 
^Lra/  dp.  The  front  and  rear  lateral  weight  transfer  components 
Wmp  and  WTR,  as  well  as  suspension  roll  stiffnesses  kf  and  kr  do 
not  affect  sprung  mass  roll  angle  during  the  first  0.5  s (as 
compared  to  other  elements  of  parameter  vector  px)  and  their 
influence  is  increased  slightly  when  the  vehicle  approaches  stea- 
dy state.  The  vehicle  CG  height  h does  not  exhibit  any  influence 
on  the  sprung  mass  roll  angle  and  this  is  due  to  the  structure  of 
the  model. 

General  Sensitivity  Measure 

The  combined  effect  of  related  parameters  grouped  into  the 
parameter  vectors  p7  (geometrical) , p3  (mass-inertia)  and  p4 
(stiffness-damping)  '"on  vehicle  system  response  have  been 
determined  using  the  general  sensitivity  measures  based  on 
percentage  sensitivity  functions  (see  Chapter  3) . Fig.  14  - 18 
show  the  general  sensitivity  measures  of  the  vehicle  yaw 
velocity,  lateral  velocity,'  sprung  mass  roll  velocity,  sprung 
mass  roll  angle,  and  vehicle  heading  angle  based  on  the  variation 
of  the  parameter  vectors  p2 , p3  and  p4 . The  values  of  general 
sensitivity  measures  on  these  plots  represent  the  cumulative 
change  in  system  variables  caused  by  a 1%  change  of  all  parame- 
ters in  each  of  the  3 parameter  vectors  described  above.  During 
the  initial  phase  of  transient  motion  the  variation  of  geometri- 
cal and  mass-inertia  parameters  affects  vehicle  yaw  velocity 
slightly  more  than  variation  of  stiffness-damping  parameters 
(Fig.  14).  However,  after  0.25  s the  stiffness-damping  parame- 
ters become  the  most  influential  among  the  groups  of  parameters 
considered,  and  their  variation  at  t = 1.0  s causes  approximately 
a 3.5  times  larger  change  in  yaw  velocity  than  the  variation  of 
geometrical  and  mass-inertia  parameters.  In  the  case  of  lateral 
velocity  (Fig.  15)  and  sprung  mass  roll  angle  (Fig.  17)  the 
variation  of  parameter  vector  p4  is  still  the  most  influential 
among  the  3 parameter  groups,  however,  when  comparing  Fig.  17  to 
Fig.  14  we  see  that  the  relative  significance  of  parameter  groups 
p2  and  p3  has  increased  in  comparison  to  parameter  vector  p4 . It 
is  interesting  to  notice  the  similar  effect  of  parameter  vectors 
p7  and  p3  on  roll  angle  (Fig.  17)  and  roll  velocity  (Fig.  16)  for 
t > 0.3  s.  Of  course  the  influence  of  all  parameter  variations 
on  the  sprung  mass  roll  velocity  diminishes  to  zero  when  the 
vehicle  approaches  steady  state  conditions. 


Tire  Force  Sensitivity 

The  results  presented  so  far  (Figs. 9 - 18)  refer  to  analysis 
of  the  influence  of  the  vehicle  primary  and  secondary  parameters 
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on  system  primary  variables.  The  methods  and  algorithms  developed 
are  also  capable  of  providing  complete  sensitivity  analysis  of 
the  system  secondary  variables,  such  as  tire  forces,  maximum  tire 
allowable  forces,  lateral  weight  transfer,  etc.,  on  both  primary 
and  secondary  parameter  changes.  For  example,  Figs.  19  and  20 
illustrate  the  sensitivity  of  the  tire  forces  generated  by  the 
inside  wheels  of  a vehicle  in  pure  cornering  maneuver  given 
a front  wheel  steering  input  of  1 deg  and  forward  speed  25  m/s. 
The  inside  wheels  are  of  special  interest  with  regard  to  vehicle 
stability  since  they  are  the  wheels  which  become  locked  first 
when  generated  tire  forces  approach  their  limits  of  adhesion. 

Fig.  19  shows  the  first  order  percentage  sensitivity  of 
the  front  inside  tire  force  on  variation  of  parameter  vector  P5. 
As _ seen  from  this  Figure  the  normalized  side  force  function 
f(dCfi)  and  cornering  stiffness  CFI  (two  secondary  parameters)  are 
the  ’most  influential  among  the  parameters  composing  vector  p5. 
The  increase  of  both  of  them  results  in  increase  of  tire  force 
generated  by  this  wheel  and  this  occurs  throughout  the  entire 
transient  motion.  The  effect  of  other  parameter  changes  is 
substantially  smaller  with  the  exception  of  yaw  moment  of  inertia 
I2  during  initial  stage  of  transient  response.  The  percentage 
sensitivity  function  for  Iz  is  negative  for  0.2  <t<  1.4  s which 
indicates  that  increasing  Iz  results  in  a decrease  of  tire  force. 
The  sensitivity  of  the  rear  inside  tire  force  on  changes  of 
parameter  vector  p6  is  illustrated  in  Fig.  20.  The  rear  inside 
tire  force  appears  to  be  the  most  sensitive  to  change  of  CG 
distance  to  front  axle  a,  and  then  to  change  in  f(oCrj_)  and  CRI . 
The  variation  in  other  elements  of  parameter  vector  p^  have  a 
much  smaller  effect  on  generated  tire  force  by  rear  inside  wheel. 
Among  the  remaining  parameters,  yaw  moment  of  inertia  I2  has  a 
somewhat  larger  influence  during  the  initial  phase  of  transient 
motion,  and  its  influence  on  the  rear  inside  tire  force  is  very 
similar  to  that  of  the  front  inside  tire  force  shown  in  Fig.  19. 

The  sensitivity  analysis  can  provide  a very  useful  informa- 
tion when  a vehicle  emergency  maneuver  is  being  investigated. 
Fig.  21  shows  the  lateral  tire  forces  generated  by  the  four 
wheels  of  a vehicle  moving  with  forward  speed  25  m/s  and  when  1 
deg  steering  is  applied  simultaneously  with  a braking 
deceleration  of  0.4g.  At  about  0.5  s the  simulation  is  terminated 
because  one  of  the  wheels  became  locked  up.  From  Fig.  22,  which 
represents  the  maximum  allowable  lateral  forces,  and  Fig.  21  it 
can  be  found  that  in  this  combined  vehicle  maneuver  the  rear 
inside  wheel  became  locked  first  when  its  tire  generated  a 
lateral  force  of  510  N.  The  sensitivity  of  the  rear  inside  tire 
force  to  parameter  changes  is  shown  in  Fig.  23,  and  the 
sensitivity  of  maximum  allowable  force  on  this  tire  is  presented 
in  Fig.  24.  As  seen  from  both  Figures  increasing  skid  number  SN 
decreases  the  tire  force  generated,  and  at  the  same  time  it  also 
increases  maximum  allowable  force  determined  by  tire-roadway 
limits  of  adhesion.  Thus  by  increasing  the  skid  number  SN  the 
difference  between  the  maximum  allowable  and  the  actual  tire 
force  is  increased  which  results  in  increasing  the  stability 
margin  of  the  vehicle.  From  comparison  of  Figs.  20,  23  and  24 
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it  is  clearly  seen  that  the  skid  number  SN  becomes  an  important 
factor  when  the  vehicle  is  driven  close  to  the  limits  of 
adhesion.  The  skid  number  does  not  significantly  affect  tire 
forces  generated  in  normal  driving  conditions. 


General  Conclusions 


The  various  types  of  sensitivity  functions  can  be  used  when 
carrying  out  sensitivity  analysis.  For  certain  situations, 
however,  the  most  recommended  sensitivity  functions  are  given 
below. 


TYPE  OF  SENSITIVITY  FUNCTION 


APPLICATION 


First  order  standard 
Percentage  and  logarithmic 

First  order  logarithmic 
General  sens,  measure  (perc.) 

General  sens,  measure  (log.) 

Second  order  standard 


- one  parameter  on  one  variable 

- many  parameters  on  one  variable 
(log.  - on  absolute  variable  value) 

- one  parameter  on  several  variables 

- various  groups  of  parameters  (geom. , 
mass,  stiff.,  etc.)  on  one  variable 

- global  effect  of  many  parameters 
(in  groups)  on  several  variables 

- when  system  exhibits  similar 
sensitivity  to  a number  of 
parameters 
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ANGULAR  VELOCITY  (Rad/s) 


VEHICLE  YAW  VELOCITY 


TIME  (Sec.) 


Fig»  6 
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VELOCITY  (m/s) 


VEHICLE  LATERAL  VELOCITY 


TIME  (Sec.) 


Fig.  7 
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6.  SENSITIVITY  ANALYSIS  OF  VEHICLE  STEADY  STATE  MODEL 


6 . 1 Vehicle  Steady  State  Model 


The  vehicle  model  assumed  for  steady  state  analysis  is  the 
same  as  that  described  in  Chapter  5.1  (Figs.  2,  3,  4 and  5). 
The  equations  of  motion  of  vehicle  steady  state  are  obtained  from 
Eqs.  (54)  - (56)  by  eliminating  the  generalized  accelerations 


EY  = MUr 


(71) 


IN  = 0 


(72) 


ELS  - Ms  hRA  Ur 


(73) 


The  external  load  in  the  vehicle  steady  state  is  given  by 


X.Y  - Fyfo  + Fyfi  + Fyro  + Fyri 


(57) 


£N  — a(Fyf0  + Fyfj)  t)(Fyr0  + Fyj^)  + + ^ 


5Nf  5Nr 
H 


(58) 


5L 


RA 


ELS  = (Ms  ghRA  ^ ) § 


(74) 


The  tire  forces  generated,  tires'  limits  of  adhesion,  longitudi- 
nal and  lateral  weight  transfer,  and  the  wheels'  normal  loads  are 
computed  in  the  same  way  as  described  in  previous  section. 

From  Eqs.  (73)  and  (74)  the  sprung  mass  roll  angle  is  deter- 
mined in  a simple  form 


4> 


MS  hRA  Ur 


MS  §hRA 


0LRA 

50 


(75) 
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Substituting  the  sprung  mass  roll  angle  (74)  into  Eqs . (61),  (63) 
and  evaluating  wheels'  normal  loads  and  tire  characteristics,  the 
equations  of  vehicle  lateral  and  yawing  motions  can  be  obtained 
from  Eqs.  (71),  (57),  (72)  and  (58).  These  equations  are  very 
complex  and  because  they  are  not  applicable  in  explicit  form 
(tire  characteristics  need  to  be  continuously  updated) , they  are 
not  shown  here.  However,  together  with  Eq.  (75)  they  represent  a 
set  of  three  simultaneous  nonlinear  algebraic  equations  determi- 
ning the  vehicle  steady  state. 


6 . 2 Steady  State  Sensitivity  Results 


The  sensitivity  of  the  steady  state  nonlinear  vehicle  model 
described  in  chapter  6.1  has  been  carried  out  using  the 
techniques  described  in  Chapters  2.2  and  4.2.  The  steady  state 
sensitivity  results  were  obtained  using  vehicle  data  identical  to 
that  used  to  calculate  the  transient  sensitivity  results  in 
Chapter  5.2  (Table  2).  The  sensitivity  functions  were  calcu- 
lated over  a range  of  front  wheel  steer  angles  of  0 - 2 degrees. 

Figs.  25,  26,  and  27  represent  vehicle  lateral  velocity, 
vehicle  yaw  velocity  and  sprung  mass  roll  angle  respectively. 
The  results  were  obtained  for  a forward  vehicle  speed  of  25  m/s. 

The  steady  state  sensitivity  analysis  was  carried  out  for 
vector  parameter  p7 . Parameter  vector  p7  consists  of  the 
following  vehicle  parameters: 


P7  — (M,  Ix,  L,  h,  hpj^ , 5Lj^/0p) 


Lateral  Velocity  Sensitivity 

Figs.  28,  29,  30  and  31  represent  first  order  percentage, 
first  order  logarithmic,  first  order  standard,  and  second  order 
standard  sensitivity  functions  of  lateral  velocity  respectively. 

Figs.  28  - 31  show  that  parameters  1^,  h,  and  dLj^/dp  have 
little  or  no  effect  on  lateral  velocity.  The  sensitivity 
functions  taken  with  respect  to  parameter  h is  zero  due  to  the 
model  structure.  The  sensitivity  of  lateral  velocity  to  para- 
meters Ix  and  9lrp^/c)p  are  zero  because  these  parameters  are 
normally  associated  with  the  roll  angular  acceleration  and  roll 
angular  velocity  of  the  sprung  mass.  Since  the  sprung  mass  roll 
angle  is  constant  once  the  vehicle  has  achieved  steady  state 
motion  we  can  expect  the  sensitivity  functions  taken  with  respect 
to  these  parameters  to  be  equal  to  zero. 
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Fig.  28  shows  that  vehicle  lateral  velocity  can  be  increased 
by  increasing  mass  M,  although  only  at  steer  angles  greater  than 
1.35  degrees.  It  should  be  noted  that  percentage  sensitivity 
gives  information  regarding  the  real  value  of  the  variable, 
therefore  if  the  variable  value  is  negative  (as  it  is  in  this 
case  (Fig.  25) ) a change  from  -2  to  -1  is  interpreted  as  an 
increase,  while  a change  from  -2  to  -3  is  interpreted  as  a 

decrease.  Wheelbase  L shows  the  largest  negative  percentage 
sensitivity,  as  well  as  the  largest  overall  percentage  sensitivi- 
ty, indicating  that  an  increase  in  vehicle  wheelbase  will 
decrease  vehicle  lateral  velocity.  Parameters  a and  h^  also 
display  smaller  negative  percentage  sensitivity  values. 

Fig.  29  shows  the  first  order  logarithmic  sensitivity  of  • 
lateral  velocity  taken  with  respect  to  parameter  vector  p7. 
Comparing  Fig.  28  to  Fig.  29  shows  that  the  curves  which 

correspond  to  one  another  display  opposite  signs.  This  is 
because  first  order  logarithmic  sensitivity  gives  information 
regarding  a parameters  influence  on  the  magnitude  of  a variable's 
absolute  value  rather  than  it's  real  value.  Since  lateral 
velocity  is  negative  in  this  instance  Figs.  28  and  29  have 
opposite  signs.  With  this  in  mind  we  can  see  that  these  two 

figures  convey  similar  information.  The  absolute  value  of  the 
vehicle's  steady  state  lateral  velocity  can  be  increased  by 

increasing  L,  a,  and  h-^.  The  absolute  value  of  the  vehicle's 

steady  state  lateral  velocity  can  be  reduced  by  increasing  M,  but 
then  only  at  large  steering  angles. 

Fig.  30  illustrates  the  first  order  standard  sensitivity 
functions  of  vehicle  lateral  velocity.  The  figure  shows  that 
increasing  parameters  L,  a and  hj^  will  decrease  the  real  value 
of  lateral  velocity.  However,  no  conclusions  can  be  made  as  to 
the  order  of  parameter  influence  based  on  this  figure.  Fig.  31 
shows  the  second  order  sensitivity  functions  of  vehicle  lateral 
velocity  and  can  be  used  to  gain  addition  insight  into  parameter 
influence  when  two  or  more  parameters  display  similar  first  order 
sensitivity  functions.  Again  no  conclusions  can  be  made  as  to 
the  order  of  parameter  influence  based  on  this  figure. 


Vehicle  Yaw  Velocity 

Fig.  32  shows  the  first  order  percentage  sensitivity  fun- 
ctions of  vehicle  yaw  velocity.  The  figure  shows  that  parameter 
a has  the  greatest  positive  influence  on  yaw  velocity,  increasing 
parameter  a will  increase  the  steady  state  yaw  velocity. 
Parameter  M has  the  greatest  negative  sensitivity,  as  well  as  the 
largest  overall  negative  sensitivity  functions.  Increasing 
parameter  M will  decrease  the  vehicle's  steady  state  yaw 
velocity.  Parameter  hj^  exhibits  positive  sensitivity,  while 
parameter  L has  negative  sensitivity  until  a steer  angle  of  1.6 
degrees  is  reached  at  which  point  L displays  positive  sensitivity 
as  well. 


67 


Sprung  Mass  Roll  Angle 


The  percentage  sensitivity  of  the  steady  state  sprung  mass 
roll  angle  taken  with  respect  to  parameter  vector  p 7 is  shown  in 
Fig.  33.  Since  the  steady  state  sprung  mass  roll  angle  was  found 
to  be  negative  (Fig.  27) , negative  values  of  percentage  sensiti- 
vity indicate  that  a parameter  increase  will  decrease  the  value 
of  sprung  mass  roll  angle,  making  its  absolute  value  larger. 
Fig.  33  shows  that  has  the  most  influence.  Decreasing  hj^ 
will  reduce  the  real  value  of  the  sprung  mass  roll  angle,  giving 
it  a greater  absolute  value.  Parameter  a also  displays  negative 
percentage  sensitivity  although  it  is  not  as  influential  as  hj^. 
Parameter  M displays  positive  sensitivity,  indicating  that  an 
increase  in  M will  increase  the  steady  state  sprung  mass  roll 
angle,  reducing  its  absolute  value.  Parameter  L appears  to  have 
little  influence  on  the  steady  state  sprung  mass  roll  angle. 


General  Sensitivity  Measure 

The  general  sensitivity  measure  of  parameter  vector  p7  on 
vehicle  lateral  velocity,  yaw  angular  velocity  and  sprung  mass 
roll  angle  can  be  seen  in  Fig.  34.  The  general  sensitivity 
measure  shown  in  this  figure  is  based  on  first  order  logarithmic 
sensitivity  functions.  This  allows  us  to  compare  the  three 
curves  since  first  order  logarithmic  sensitivity  functions  are 
dimensionless.  The  parameter  vector  p7  has  the  greatest  influence 
on  the  vehicle  sprung  mass  roll  angle  for  a front  wheel  steer 
angle  of  0 - 1.6  degrees.  For  a front  wheel  steer  angle  greater 
than  1.6  degrees  the  parameter  vector  has  the  greatest  influence 
on  vehicle  lateral  velocity.  Parameter  vector  p7  has  the  least 
influence  on  the  vehicle  yaw  angular  velocity. 
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7 . SENSITIVITY  ANALYSIS  OF  VEHICLE  MODEL  IN  FREQUENCY  DOMAIN 


7 . 1 Vehicle  Model  In  Frequency  Domain 


The  vehicle  model  assumed  for  analysis  is  a linear  version 
of  a three  dimensional  nonlinear  vehicle  model  described  in 
Chapter  5.1  (Figs.  2,  3,  4). 

The  simplified  equations  of  motion  of  the  linear  vehicle 
model  used  for  this  analysis  can  be  written  as  follows 


m(V  4-  Ur)  +mh  p=F  +Fr.  +F  +F 

s rar  yfo  yfi  yro  yn 


3L 


3L 


I p + m h (V  + Ur)  = M gh  <p ^ <j> ^ p 

s ra  s43  ra  3<j>  y 3p  1 


(76) 


I r = a(F  _ + F ) - b(F  +F  . ) + CMF 

z yfo  yfi  yro  yri 


6 - 


V + ar 
U 


+ CMR 


96r  , br  - V 

<J>  + 


3(f) 


U 


The  average  slip  angles  for  the  front  and  rear  axles 


V + ar 
U 


a 

r 


36r 

w 


<P  + 


(77) 


The  linear  relation  for  cornering  stiffnesses  versus  normal  load 
is  implemented  based  on  a linear  approximation  about  the 
operating  point  of  nonlinear  cornering  characteristics  obtained 
from  vehicle  model  presented  in  [5]  which  utilizes  Calspan  tire 
data 


cf  - afn  + B 


(78) 


The  normal  load  of  each  wheel  is  a result  of  static  load  and 
lateral  weight  transfer  due  to  vehicle  lateral  acceleration 
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F = ^ + (v  + Ur)  m 
Nfo  2L  ef 


_ mgb  _ (Y  + jjr)  m 

Nfi  2L  ; ef 


F = ^ + (V  + Ur)  m 
Nro  2L  er 


(79) 


where 


F . = ^ - (V  + Ur)  m 
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The  side  tire  forces  Fyfif  Fyro  and  Fyri  can  be  determined 


yfo 
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(V  + ar) 
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^ + (V  + Ur)  m f 
2L  ef 
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+ (V  + Ur)  m 
2L  er 


+ B 


(81) 


yri 


36r  A , (br  - V) 

ar*  + u — 


ff  - (V  + Ur)  ■ 
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where  the  last  terms  in  the  first  two  Eqs.  (81)  represent  the 
effect  of  roll  steer  on  the  front  wheels.  The  roll  steer  of  rear 
wheels  is  included  by  modification  of  the  rear  slip  angles  in  Eq. 
(77)  . 


Substituting  the  tire  side  forces,  Eqs.  (81)  into  Eqs.  (76), 
the  equations  of  motion  of  a vehicle  can  be  written  in  matrix 
form 


mll 

0 

m13~ 

r—  • — 
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C22 
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C22 

0 

r 

+ 

0 

0 
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_m31 

0 
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» 
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0 

C32 
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P 

0 

0 

K33 

(p 

0 

(82) 


The  coefficients  of  this  matrix  equation  have  been  placed  at  the 
end  of  this  Chapter  for  clarity. 

Introducing  a state  vector  z 


z = col  [V,  r,  p,  <p  ] 


(83) 


the  Eqs.  (82)  have  been  brought  to  the  set  of  first  order 
differential  equations 
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(84) 


(The  coefficients  Mn1,  M-^,  M22'  M31  an<^  M33  °f  these  equations 
are  given  at  the  end  of  this  Chapter) . 
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7 . 2 Frequency  Domain  Sensitivity  Results 


The  procedure  for  sensitivity  analysis  presented  in  this 
report  has  been  utilized  to  determine  the  sensitivity  of 
amplitude- frequency  characteristics  on  changes  of  selected 
parameters  of  the  vehicle  handling  model  given  by  Eqs.  (84).  This 
three  degree-of-f reedom  vehicle  model  is  described  by  a parameter 
vector  which  consists  of  16  geometrical,  mass-inertia,  damping 
and  stiffness  characteristics.  The  list  of  all  vehicle  parameters 
and  their  nominal  values  assumed  in  analysis  is  given  in  Table  3. 

The  first  and  second  order  logarithmic  sensitivity  functions 
have  been  computed  as  the  first  and  second  order  logarithmic 
derivatives  of  the  amplitude-frequency  characteristics  (Eqs. (34) , 
(39))  for  vehicle  lateral  and  yaw  velocities  and  sprung  mass  roll 
angle.  The  derivatives  have  been  taken  with  respect  to  system 
parameters  which  compose  two  parameter  vectors 


al 


( m,  me 


L,  a , h 


ra 


ckP. 

' d<p  } 


a2 
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dLrg  dj-j~a 
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CMR,  A, 


B) 


(85) 


The  computations  have  been  carried  out  for  a vehicle  forward 
speed  U = 25  m/s  and  for  a frequency  range  co  = 0 - 10  rad/s  [0  - 
1. 6 Hz] . 

The  first  order  logarithmic  sensitivity  functions  plotted  in 
Figs.  35  and  36  represent  the  influence  of  parameter  changes  on 
the  amplitude  of  vehicle  lateral  velocity.  As  seen  from  these 
figures,  the  sensitivity  functions  for  parameters  a,  dcTr/3(p,  A, 
CMF  and  CMR  have  positive  values  which  means  that  increasing 
these  parameters  increases  the  amplitude  of  lateral  velocity. 
Similarly,  the  sensitivity  functions  for  parameters  L,  Iz  and  B 
are  negative  in  the  whole  range  of  tested  frequencies,  and  this 
indicates  that  increasing  L,  Iz  and  B decreases  the  lateral 
velocity  amplitude.  The  sensitivity  functions  for  parameters  h„_, 
ms,  I„  and  m change  signs  in  the  neighborhood  of  2 rad/s  and  this 
results  in  qualitative  changes  of  lateral  velocity. 

Figs.  35  and  36  show  that  the  CG  distance  to  front  axle  a 
and  wheelbase  L have  the  largest,  although  opposite  influence  on 
vehicle  lateral  velocity  in  a frequency  range  0-4  rad/s  [0 
0.64  Hz].  The  CG  distance  to  roll  axis  hra,  sprung  mass  ms,  as 
well  as  vehicle  mass  m together  with  the  sprung  mass  roll 
moment  of  inertia  Ix  definitely  have  the  largest  influence  on  the 
amplitude  of  lateral  velocity  above  the  frequency  of  6 rad/s 
[0.95  Hz].  Overall,  the  lateral  velocity  seems  to  be  more 
sensitive  to  changes  of  parameters  making  up  vector  a^  than 

vector  a2 . 
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TABLE  3.  VEHICLE  DATA  FOR  SENSITIVITY  ANALYSIS  IN  FREQUENCY  DOMAIN 


Vehicle  mass  (m) 

1230 

[kg] 

Vehicle  sprung  mass  (ms) 

1095 

[kg] 

Vehicle  front  unsprung  mass  (muf ) 

77 

[kg] 

Vehicle  rear  unsprung  mass  (mur) 

58 

[kg] 

Sprung  mass  roll  moment  of  inertia  (Ix) 

400 

[kgm2] 

Vehicle  yaw  moment  of  inertia  (Iz) 

2000 

[kgm2] 

Total  suspension  roll  stiffness  (0Lra/8^) 

34383 

[Nm/rad] 

Total  suspension  roll  damping  (0Lra/8p) 

1600 

[Nms/rad] 

Wheelbase  (L) 

2 . 66 

[m] 

Dist.  from  vehicle  CG  to  front  axle  (a) 

0.87 

[nt] 

CG  height  of  front  unsprung  mass  (huf) 

0.31 

[m] 

CG  height  of  rear  unsprung  mass  (hur) 

0.31 

[m] 

Dist.  from  sprung  mass  CG  to  roll  axis  (hra) 

0.41 

[m] 

Front  roll  center  height  (hf) 

0.13 

[m] 

Rear  roll  center  height  (hr) 

0.30 

[m] 

Front  track  width  (Tf) 

1.49 

[m] 

Rear  track  width  (Tr) 

1.45 

[m] 

Rate  of  front  wheel  incl.  with  roll  (dff/d(p) 

0.1 

Steer  of  rear  wheel/body  roll  (0cfr/3(fc) 

0.05 

Aligning  stiffness  of  front  tires  (CMF) 

3000 

[Nm/rad] 

Aligning  stiffness  of  rear  tires  (CMR) 

3000 

[Nm/rad] 

Inclination  stiffness  of  front  tires  (FI) 

6000 

[N/rad] 

Cornering  stiffness  coefficient  (A) 

1.675 

[l/rad] 

Cornering  stiffness  coefficient  (B) 

17296 

[N/rad] 
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Some  of  the  numerical  results  on  the  sensitivity  of  vehicle 
yaw  velocity  are  shown  in  Fig.  37.  The  logarithmic  sensitivity 
functions  for  h~a,  ms,  m and  possess  the  highest  absolute 
values  which  indicates  they  have  the  largest  influence,  among  the 
elements  of  parameter  vector  a-*,  on  the  amplitude  of  vehicle  yaw 
velocity.  The  increase  of  CG  distance  to  roll  axis  hra  or  sprung 
mass  ms  results  in  a decrease  of  yaw  velocity,  however,  the 
increase  of  vehicle  mass  m and  sprung  mass  roll  moment  of  inertia 
I have  opposite  effects.  The  influence  of  these  parameter 
changes  decreases  almost  uniformly  as  frequency  increases. 

The  qualitative  influence  of  parameter  variations  on  sprung 
mass  roll  angle  (Fig. 38)  is  very  similar  to  that  for  the  lateral 
velocity  and  for  the  elements  of  parameter  vector  a^  (Fig.  36). 
From  the  values  of  the  sensitivity  functions,  however,  it  can  be 
noticed  that  the  roll  angle  is  less  sensitive  to  parameter 
changes  than  is  lateral  velocity  for  frequencies  above  5 rad/s. 
The  sensitivity  functions  for  sprung  mass  ms  and  CG  distance  to 
roll  axis  hra  are  identical  and  coincide  due  to  the  structure  of 
vehicle  handling  model.  This  occurrence  is  common  for  all  graphs 
(Figs. 35,  37  and  38). 

The  results  presented  above  are  based  on  the  computation  of 
first  order  logarithmic  sensitivity  functions.  In  some  cases, 
however,  the  computations  of  second  order  logarithmic  sensitivity 
functions  (Eqs.  (31),  (39))  may  foe  beneficial.  Fig.  39  represents 

a comparison  of  the  first  order  (continuous  lines)  and  second 
order  (broken  lines)  logarithmic  sensitivity  functions  of 

amplitude-frequency  characteristics  of  sprung  mass  roll  angle 
obtained  for  parameters  a,  L and  hr3.  These  plots  show  a similar 
character  for  both  types  of  sensitivity  functions;  however,  the 
second  order  sensitivity  functions  are  more  sensitive  to 

parameter  variations. 

The  general  sensitivity  measure  defined  by  Eq.  (42)  seems  to 
be  a very  valuable  addition  to  the  sensitivity  analysis  of 
vehicle  design  attributes.  Fig.  40  demonstrates  the  combined 
effect  of  system  parameters  composing  a parameter  vector  a-^  (Eq. 
(85))  on  the  amplitude- frequency  characteristics  of  vehicle 
lateral  velocity  V,  yaw  angular  velocity  r and  sprung  mass  roll 
angle  $ • For  frequencies  up  to  8 rad/s  [1.27  Hz]  the  variation  of 
parameter  vector  a^_  affects  the  amplitude  of  yaw  velocity  r more 
than  the  amplitude  of  lateral  velocity  V or  roll  angle  $ . The 
last  two  have  the  similar  sensitivity  up  to  a frequency  of  4.5 
rad/s  [0.72  Hz]  and  the  lateral  velocity  becomes  most  sensitive 
to  variations  in  parameter  vector  ax  at  the  upper  limit  of  tested 
frequencies.  The  influence  of  parameter  vector  a^  on  the 
amplitudes  of  V,  r and  (shown  in  Fig.  41)  is  noticeably  smaller 
than  that  of  parameter  vector  a^ 
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LATERAL  VELOCITY  SENSITIVITY 


FREQUENCY  (Rad/S) 


Fig.  35 
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LATERAL  VELOCITY  SENSITIVITY 


FREQUENCY  (Rad/S) 


Fig.  36 
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LOG  SENSITIVITY 


YAW  VELOCITY  SENSITIVITY 
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Fig.  37 
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LOG  SENSITIVITY 


ROLL  ANGLE  SENSITIVITY 


FREQUENCY  (Rad/S) 


Fig.  38 
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1st  AND  2nd  ORDER  LOG  SENSITIVITY 


ROLL  ANGLE  SENSITIVITY 


FREQUENCY  (Rad/S) 
Fig.  39 
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LO0  SENSITIVITY 
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Fig.  41 
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TABLE  4 


THE  COEFFICIENTS  OF  MATRIX  EQ.  (82)  OF  VEHICLE  MOTION 


ral  1 = m 


r = Amg.  , 

11  U U 


m 


13 


m h 
s ra 


ci2  - r (a  - b)  ^ 


- I 

22  z 


= 2Ba  _ 2Lb 
'21  U U 


+ 


m 


31 


m h 
s ra 


m_  _ - I 
33  x 


Aa^mgb  2a 


22  UL 


2b  B , aCMF 

+ "TT"  + “u- 


= in  h U 
32  s ra 


3L 


ra 


'33  3p 


= 36r  mgaA  36r  23Y 

13  34)  L 34)  3 4> 


K 


23 


36r  mgabA  , 36r 

af~  l + a^~  2Bb 


23Y  Fla  - CMR 


34) 


34> 


K 


33 


3L 

, . ra 

-m  gh  + ~ 

s ra  34) 


KUj  = 2^  + 263 


KU2  = + 26Ba  + CMF6 


mU 


CMF  4-  CMR 
U 


B Ab  mga 
UL 

bCMR 

U 
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TABLE  5.  THE  COEFFICIENTS  OF  MATRIX  EQ.  (84)  OF  VEHICLE  MOTION 


M1 1 m22m33E 


,M13  = "m13m22E 


iM22  = ^ ml  lm33  " m13m3 1 ^ E 


-1 


M31  ' “m22m31E 
M33  = mllm22E 

M33  = mllm22E 
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NOMENCLATURE 


a 

aX 

aX, Al, A2 
b 

B1 , B3 , B4 
Cf 

CFI 

CFO 

CRI 

CRO 

CMF 

CMR 


CF 
[CR 
' CUF 


UR 


f x£ 
Fxr 
Fyf  i 

Fyf° 

Fyri 

5,yro 
Fzf  i 

Fzfo 

F 

r zn 
F 

(Fr°-) 

(Fxfi) 

(Fxfo) 

(Fxri) 

(Fxro) 

Fyfi> 

Fyfo 

(Fyri) 

(FJ  ) 
vryrcv 

g 

h 

hf 

hr 

huf 

hur 

Ixs 

lxys 

Ixzs 


max 

max 

max 

max 

max 

max 

max 

max 


Distance  from  front  axle  to  sprung  mass  C.G. 

Braking  deceleration 
Lateral  acceleration 

CALSPAN  cornering  stiffness  coefficients 
Distance  front  rear  axle  to  sprung  mass  C.G. 

CALSPAN  peak  lateral  friction  coefficients 

Front  suspension  roll  damping 

Rear  suspension  roll  damping 

Front  inside  wheel  cornering  stiffness 

Front  outside  wheel  cornering  stiffness 

Rear  inside  wheel  cornering  stiffness 

Rear  outside  wheel  cornering  stiffness 

Twice  the  aligning  stiffness  of  a single  front  tire 

(linearized  vehicle  model) 

Twice  the  aligning  stiffness  of  a single  rear  tire 
(linearized  vehicle  model) 

Inertia  force  acting  on  sprung  mass 

Front  portion  of  Inertia  force  acting  on  sprung  mass 
Rear  portion  of  Inertia  force  acting  on  sprung  mass 
Inertia  force  acting  on  front  unsprung  mass 
Inertia  force  acting  on  rear  unsprung  mass 
Inclination  stiffness  of  front  tires  (linearized 
vehicle  model) 

Combined  braking  force  on  front  tires 

Combined  braking  force  on  rear  tires 

Side  force  on  front  inside  tire 

Side  force  on  front  outside  tire 

Side  force  on  rear  inside  tire 

Side  force  on  rear  outside  tire 

Normal  force  on  front  inside  tire 

Normal  force  on  front  outside  tire 

Normal  force  on  rear  inside  tire 

Normal  force  on  rear  outside  tire 

Maximum  braking  force,  front  inside  tire 

Maximum  braking  force,  front  outside  tire 

Maximum  braking  force,  rear  inside  tire 

Maximum  braking  force,  rear  outside  tire 

Maximum  lateral  force  w/o  braking,  front  inside  tire 

Maximum  lateral  force  w/o  braking,  front  outside  tire 

Maximum  lateral  force  w/o  braking,  rear  inside  tire 

Maximum  lateral  force  w/o  braking,  rear  outside  tire 

Gravitational  Acceleration 

Height  of  sprung  mass  C.G. 

Distance  from  sprung  mass  C.G.  to  roll  axis 
Height  of  vehicle  C.G. 

Height  of  front  roll  center 
Height  of  rear  roll  center 
Height  of  front  unsprung  mass  C.G. 

Height  of  rear  unsprung  mass  C.G. 

Roll  moment  of  inertia  of  sprung  mass 
Mass  product  of  inertia  of  sprung  mass 
Mass  product  of  inertia  of  sprung  mass 
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NOMENCLATURE  (Concluded) 


Ktot 

L 

M 

Mr 

Ms 

Muf 

Mur 

P 

PO, PI, P2 
Q 

Q© 

qi 

r 

max 
^ sfo^  max 
^sri^  max 
^sro^ max 


BF 

BR 

RF 

RR 

UF 

UR 

TF 

TR 


Vehicle  yaw  moment  of  inertia 
Front  suspension  roll  stiffness 
Rear  suspension  roll  stiffness 
Total  suspension  roll  stiffness 
Vehicle  Wheelbase 
Total  vehicle  mass 

Sprung  mass  inertia  force  moment  about  roll  axis 
Vehicle  sprung  mass 
Front  unsprung  mass 
Rear  unsprung  mass 
Sprung  mass  roll  angular  velocity 
CALS PAN  peak  braking  force  coefficients 
Thrust  or  braking  parameter 
Brake  distribution  coefficient 
Heavy  braking  coefficient 
Vehicle  yaw  velocity 
Maximum  allowable  lateral  force, 

Maximum  allowable  lateral  force, 

Maximum  allowable  lateral  force. 

Maximum  allowable  lateral  force, 

Front  track  width 
Rear  track  width 
Vehicle  forward  velocity 
Vehicle  lateral  velocity 

Front  lateral  weight  transfer  due  to  body  roll 
Rear  lateral  weight  transfer  due  to  body  roll 
Front  lateral  weight  transfer  due  to  roll  center  height 
Rear  lateral  weight  transfer  due  to  roll  center  height 
Front  lateral  weight  transfer  due  to  unsprung  weight 
Rear  lateral  weight  transfer  due  to  unsprung  weight 
Total  front  lateral  weight  transfer 
Total  rear  lateral  weight  transfer 


front  inside  tire 
front  outside  tire 
rear  inside  tire 
rear  outside  tire 


kr_ 


f(<£p) 

■f(£  ro) 
a 


AVri. 

J^xro 

yWyrC 

H-yro 


4> 

^LRA//  dp 
d(p 


Front  tire  slip  angle 
Rear  tire  slip  angle 
Front  inside  slip  angle  variable 
Front  outside  slip  angle  variable 
Rear  inside  slip  angle  variable 
Rear  outside  slip  angle  variable 
Front  wheel  steer  angle 

Peak  braking  coefficient  of  front  inside  tire 
Peak  braking  coefficient  of  front  outside  tire 
Peak  braking  coefficient  of  rear  inside  tire 
Peak  braking  coefficient  of  rear  outside  tire 
Peak  lateral  force  coefficient  of  front  inside  tire 

Peak  lateral  force  coefficient  of  front  outside  tire 

Peak  lateral  force  coefficient  of  rear  inside  tire 

Peak  lateral  force  coefficient  of  rear  outside  tire 

Sprung  mass  roll  angle 
Vehicle  yaw  angle 
Total  suspension  damping 
Total  suspension  stiffness 
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APPENDIX  A 


IME 


SENSITIVITY  FLOWCHAR 


A— 1 


Q *************************************************************** 

C * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 

C * A PUBLIC  CORPORATION  * 

C * * 

C *************************************************************** 
C * 

MAIN  PROGRAM  - TRANS . FOR 


C * 

C * 

C * 

C * 

c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 

n A*********************************-***************************** 


PURPOSE  ~ CALCULATE  SENSITIVITY  FUNCTIONS  IN  THE  TIME 
DOMAIN  OF  A TRANSIENT  VEHICLE  MODEL 

LAST  REVISED  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ 

ALAN  C . BINDEMANN 

REQUIRES  SUBROUTINES  - INPUT1.FOR 

VDATA . FOR 
MODEL. FOR 
DRVT . FOR 

IMSL  ROUTINE  - DGEAR. OBJ 

REQUIRES  INPUT  DATA  - FROM  ROUTINES  INPUT1  AND  VDATA 


PROGRAM  TRANS 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

REAL* 8 Y (20) ,WK(1000) , X , TOL , XEND , H , YPRIME (20) ,YS(20) , 

DLV (50 , 50) , DVDP1L(5Q,50) , DVDP1 ( 50 , 50 ) , DVDP2 (50,50) , 
SPAR (50) , PER (50) ,V(50,50,7) , VAR (50) ,SPRM2 (50,7) , 

SYS (50) , VY ( 7 ) , PX ( 7 ) , SORT (4,50) 

CHARACTER* 1 2 , GFILNM, PFILNM 

INTEGER*4  N , METH , MITER , INDEX, IWK(20) , IER, IDVDP1 (50) 

COMMON/ PARA/  PRM(IOO) 

COMMON/ PARA2/  PRM2(100) 

COMMON/S I ZE/NP, NPN, ND, IISV (20) 

EXTERNAL  FCN;FCNJ 

CC  INPUT  DATA: 


1 

2 

3 


CALL  INPUT 1 ( N , X , Y , H , TOL , METH , MITER , INDEX , NS V , 

! IM, PERT, TR, TP, TF, IPLOT , OFILNM , PFILNM) 

CC  SAVE  THE  INITIAL  SPECIFICATIONS: 

CALL  VDATA 

DO  1 1=1, NP 
PER ( I ) =PERT 


A-2 


SPAR ( I ) =PRM ( I ) 

1 CONTINUE 

xs  =x 

DO  2 1=1 ,N 

2 YS (I)  =Y  ( I ) 

HS  =H 

INDEXS=INDEX 

CC  TOTAL  NUMBERS  FOR  INCREMENT : 

NIN=JIDNNT (TR/TP) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

OPEN (UNIT=3 , FXLE= ' CHECK 9 , STATUS=  9 UNKNOWN ! ) 
OPEN (UNXT=2 , FILE=  8 IMSL. OUT  9 , STATUS=  8 UNKNOWN ' ) 
OPEN (UNXT=6 , FXLE=OFILNM, STATUS= ' UNKNOWN  9 ) 

IF  (XPLOT.EQ. 1)  THEN 

OPEN (UNXT=1 , FILE=PFXLNM, STATUS^ ' UNKNOWN  9 ) 
WRITE (1,7)  NP 
WRITE (1,7)  ND 
WRITE (1,7)  NXN 
7 FORMAT ( IX, 13) 

END  IF 

CCCCCCCCCCCC  STARTING  TIME  INCREMENT  CCCCCCCCCCCC 


K=1 

IF  (XPLOT.EQ. 1)  THEN 
WRITE (1,405)  TP*DFLOTJ (K) 

END  IF 

80  CONTINUE 

CC  HARD  COPY  TITLE  FORMAT  OUTPUT: 

IF  (XEND/TF  ,EQ.  DFLOTJ (MINT (XEND/TF) ) ) THEN 
WRITE  ( 6 , * ) 
i— 

END  IF 

CCCCCCCCC  STARTING  PARAMETER  INCREMENT  CCCCCCCCC 


XP=1 


90  CONTINUE 

IF  ( IP . GT . NP-NPN)  THEN 
IOGFLG=Q 
ELSE 

XDGFLG=1 
END  IF 

CCCCCCCCC  INM=1 : CALCULATE  V(T,P)  CCCCCCCCCCCCCCCCCCC 


A-3 


INM=1 


WRITE (2,*)  ' INM=1 ' 

DO  100  1=1, NP 
100  PRM ( I ) =S  PAR ( I ) 

IF  (K.EQ.l)  THEN 
X=XS 

DO  102  1=1, N 
102  Y ( I ) =YS (I) 

H =HS 
INDEX=INDEXS 

ELSE 

X=TP*DFLOTJ(K-l) 

DO  104  1=1, N 

104  Y ( I ) =V ( I , IP , INM) 

INDEX=1 
END  IF 

XEND=TP*DFLOTJ (K) 

CALL  DGEAR ( N , FCN , FCNJ , X, H, Y, XEND , TOL , 

! METH, MITER, INDEX, IWK,WK, IER) 

DO  106  1=1, N 
V(I, IP, INM) =Y (I) 

106  VAR ( I ) =Y ( I ) 

FLGX=1.Q 

CALL  MODEL ( N, X, Y,YPRIME, VAR, FLG1) 

FLG1=0.Q 

DO  108  I=N+1 , NSV 
108  V( I, IP, INM) =VAR ( I ) 

CC  SAVE  THE  SECONDARY  PARA  VALUES i 

DO  1=1, NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

DO  111  1=1, N 
111  SYS (I) =Y (I) 

CCCCCCCCC  INM=2:  CALCULATE  V(T,P-DP)  CCCCCCCCCCCCCCCCCCC 

INM=2 

WRITE (2,*)  ' INM=2 ! 

DO  110  1=1, NP 
110  PRM ( I ) =S  PAR ( I ) 

PRM (IP) =SPAR (IP) “SPAR (IP) *PER(IP) 


A— 4 


IF  (IDGFLG.EQ. 0)  THEN 


CALL  MODEL (N , X , Y , YPRIME , VAR , FLG1) 

DO  118  X=N+1 , NSV 
118  V( I, IP, INM) =VAR ( I ) 

END  IF 

IF  (K.EQ.l)  THEN 
X=XS 

DO  112  1=1, N 
112  Y (I)  =YS ( I ) 

H =HS 

INDEX=INDEXS 

ELSE 

X=TP*DFLOTJ (K-l) 

DO  114  1=1, N 
114  Y (I) =V (I , IP, INM) 

INDEX=1 
END  IF 

XEND=TP*DFLQTJ (K) 

CALL  DGEAR ( N , FCN , FCNJ , X, H, Y, XEND , TOL , 

1 METH, MITER, INDEX, XWK,WK, IER) 

DO  116  1=1, N 
V(X, IP, INM) =Y (I) 

116  VAR ( I ) =Y ( I ) 

CALL  MODEL(N,X,Y, YPRIME, VAR, FLG1) 

IF  (IDGFLG.EQ. 1)  THEN 
DO  117  I=N+1 , NSV 

117  V ( I , IP, INM) =VAR( I) 

END  IF 

DO  1=1, NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

CCCCCCCCC  INM=3 % CALCULATE  V(T,P-2.*DP)  CCCCCCCCCCCCCCCCCCC 


INM=3 


IF  ( (IM.EQ. 15) .OR. (IM.EQ. 17) ) THEN 

DO  120  1=1, NP 
12  0 PRM ( I ) =S  PAR ( I ) 

PRM(IP) =SPAR (IP) -SPAR (IP) *2 . D0*PER ( IP) 

IF  (IDGFLG.EQ.O)  THEN 

DO  121  1=1, N 


A-5 


121  Y ( I ) =SYS ( I ) 

CALL  MODEL (N , X , Y , YPRIME , VAR, FLG1) 

DO  122  I=N+1,NSV 

122  V ( I , IP , INM) =VAR ( I ) 

END  IF 

IF  (K.EQ.l)  THEN 
X=XS 

DO  124  1=1, N 
124  Y ( I ) =YS (I) 

H =HS 

INDEX=INDEXS 

ELSE 

X=TP*DFLOTJ (K~l) 

DO  126  1=1, N 
126  Y ( I ) =V ( I , IP, INM) 

INDEX=1 
END  IF 

XEND=TP*DFLOTJ (K) 

CALL  DGEAR ( N , FCN , FCNJ , X , H , Y , XEND , TOL , 

1 METH .MITER, INDEX, IWK,WK, IER) 

DO  128  1=1, N 
V(I , IP, INM) =Y (I) 

128  VAR(I) =Y (I) 

CALL  MODEL (N,X,Y, YPRIME, VAR, FLG1) 

IF  (IDGFLG. EQ. 1)  THEN 
DO  129  I=N+1,NSV 

129  V ( I , IP , INM) =VAR ( I ) 

END  IF 

DO  1=1 , NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

END  IF 

CCCCCCCCC  INM=4:  CALCULATE  V(T,P~3.*DP)  CCCCCCCC CCCCCCCCCCC 


INM=4 


IF  (IM.EQ.17)  THEN 


130 


DO  130  1=1, NP 
PRM ( I ) =SPAR ( I ) 

PRM (IP) =SPAR (IP) -SPAR (IP) *3 . D0*PER ( IP) 


IF  (IDGFLG. EQ.O)  THEN 
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DO  131  1=1, N 

131  Y (I) =SYS (I) 

CALL  MODEL (N, X, Y, YPRIME, VAR, FLG1) 

DO  132  I=N+1 , NSV 

132  V ( I , IP, INM) =VAR ( I ) 

END  IF 

IF  (K.EQ.l)  THEN 
X=XS 

DO  134  1=1, N 
134  Y ( I ) =YS (I) 

H =HS 

INDEX=INDEXS 

ELSE 

X=TP*DFLOTJ (K-l) 

DO  136  1=1, N 
136  Y (I) =V (I , IP, INM) 

INDEX=1 
END  IF 

XEND=TP*  DFLOT J (K) 

CALL  DGEAR ( N , FCN , FCNJ , X , H, Y , XEND , TOL , 

1 METH, MITER, INDEX, IWK,WK, IER) 

DO  138  1=1, N 
V(I , IP, INM) =Y (I) 

138  VAR ( I ) =Y ( I ) 

CALL  MODEL (N,X,Y, YPRIME, VAR, FLG1) 

IF  (IDGFLG.EQ. 1)  THEN 
DO  139  I=N+1 , NSV 

139  V ( I , IP , INM) =VAR ( I ) 

END  IF 

DO  1=1, NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

END  IF 

CCCCCCCCC  INM=5:  CALCULATE  V(T,P+DP)  CCCCCCCCCCCCCCCCCCC 


INM=5 


WRITE (2,*)  ' INM=5 ' 


140 


DO  140  1=1, NP 
PRM  ( I ) =S  PAR  ( I ) 

PRM(IP) =SPAR (IP) +SPAR (IP) *PER(IP) 
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IF  (IDGFLG.EQ. 0)  THEN 


DO  141  1=1, N 

141  Y ( I ) =SYS ( I ) 

CALL  MODEL (N , X , Y , YPRIME , VAR, FLG1) 

DO  142  X=N+1 , NSV 

142  V(I,IP, INM)=VAR(I) 

END  IF 

IF  (K.EQ.l)  THEN 

x=xs 

DO  144  1=1, N 
144  Y ( I)  =YS ( I ) 

H =HS 

INDEX=INDEXS 

ELSE 

X=TP*DFLOTJ (K-l) 

DO  146  1=1, N 
146  Y (I) =V (I , IP, INM) 

INDEX=1 
END  IF 

XEND=TP*DFLOTJ (K) 

CALL  DGEAR ( N , FCN , FCNJ , X, H, Y, XEND , TOL , 

1 METH, MITER, INDEX, XWK,WK,IER) 

DO  148  1=1, N 
V (X , IP, INM) =Y (I) 

148  VAR (I)  =Y  (I) 

CALL  MODEL (N , X , Y , YPRIME , VAR , FLG1) 

IF  (IDGFLGcEQ. 1)  THEN 
DO  149  I=N+X , NSV 

149  V ( I , IP , INM) =VAR ( I ) 

END  IF 

DO  1=1, NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

CCCCCCCCC  IMM=6 1 CALCULATE  V(T,P+2.*DP)  CCCCCCCCCCCCCCCCCCC 


INM=6 


IF  ( (IM.EQ.15) .OR. (IM.EQ.17) ) THEN 


150 


DO  150  1=1, NP 
PRM { I ) =S  PAR ( I ) 

PRM (IP) =S  PAR (IP) +S  PAR (IP) *2 . D0*PER ( IP) 
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IF  (IDGFLG.EQ. 0)  THEN 


DO  151  1=1, N 

151  Y ( I ) =S YS  ( I ) 

CALL  MODEL (N,X, Y, YPRIME,VAR, FLG1) 

DO  152  I=N+1,NSV 

152  V ( I , IP , INM) =VAR ( I ) 

END  IF 

IF  (K.EQ.l)  THEN 

x=xs 

DO  154  1=1, N 
154  Y (I)  =YS ( I ) 

H =HS 

INDEX=INDEXS 

ELSE 

X=TP*DFLOTJ(K-l) 

DO  156  1=1, N 
156  Y (I) =V (I , IP, INM) 

INDEX=1 
END  IF 

XEND=TP*DFLOTJ (K) 

CALL  DGEAR ( N , FCN , FCNJ , X , H , Y , XEND , TOL , 

1 METH , MITER, INDEX , IWK, WK, IER) 

DO  158  1=1, N 
V (I , IP, INM) =Y (I) 

158  VAR ( I ) =Y ( I ) 

CALL  MODEL (N, X, Y, YPRIME, VAR, FLG1) 

IF  (IDGFLG.EQ. 1)  THEN 
DO  159  I=N+1 , NSV 

159  V (I , IP, INM) =VAR (I) 

END  IF 

DO  1=1, NPN 

SPRM2 (I, INM) =PRM2 (I) 

END  DO 

END  IF 

CCCCCCCCC  INM=7:  CALCULATE  V(T,P+3.*DP)  CCCCCCCCCCCCCCCCCCC 


INM=7 


IF  (IM.EQ.17)  THEN 
DO  160  1=1, NP 
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160 


161 


162 


164 


166 


1 


168 


169 


CCCCCCC 


170 


PRM ( I ) =S  PAR ( I ) 

PRM (IP) =SPAR (IP) +SPAR (IP) *3 . D0*PER (IP) 

IF  (IDGFLG.EQ. 0)  THEN 

DO  161  1=1, N 
Y (I) =SYS (I) 

CALL  MODEL ( N , X , Y , YPRIME , VAR , FLG1) 

DO  162  I=N+1,NSV 
V ( I , IP , INM) =VAR ( I ) 

END  IF 

IF  (K.EQ.l)  THEN 
X=XS 

DO  164  1=1, N 
Y (I)  =YS ( I ) 

H =HS 

INDEX=INDEXS 

ELSE 

X=TP*DFLQTJ (K-l) 

DO  166  1=1, N 
Y (I) =V (I , IP, INM) 

INDEX=1 
END  IF 

XEND=TP*DFLOTJ (K) 

CALL  DGEAR ( N , FCN , FCNJ , X, H, Y, XEND , TOL , 

METH, MITER, INDEX, IWK,WK, IER) 

DO  168  1=1, N 
V(I , IP, INM) =Y (I) 

VAR ( I ) =Y ( I ) 

CALL  MODEL(N,X,Y, YPRIME, VAR, FLG1) 

IF  (IDGFLG.EQ. 1)  THEN 
DO  169  I=N+1 , NSV 
V( I, IP, INM) =VAR ( I ) 

END  IF 

DO  1=1, NPN 

SPRM2  (I , INM)  =PRM2  (I) 

END  DO 

END  IF 

STARTING  STATE  VARIABLE  INCREMENT  CCCCCCCC 


111=1 

ISV=IISV(III) 

CONTINUE 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


IF  (IP.GT. (NP-NPN)  ) THEN 
SP=SPRM2 (IP+NPN-NP, 1) 

ELSE 
SP=1 . DO 
END  IF 

C IF  PARAMETER  IS  SECONDARY  AND  VARIABLE  IS  PRIMARY  THEN  CALCULATE 
C THE  DERIVATIVES  USING  POLYNOMIAL  FIT 

IF  ( IP . GT . NP-NPN . AND . ISV . LE . N)  THEN 

NDP=IM-1Q 

VY  ( 1)  =V  ( ISV,  IP,  1) 

VY(2)=V(ISV,IP,2) 

VY ( 3 ) =V ( ISV , IP , 5 ) 

VY ( 4 ) =V ( ISV , IP, 3) 

VY ( 5 ) =V ( ISV , IP, 6) 

VY ( 6 ) =V (ISV, IP, 4) 

VY ( 7 ) =V (ISV, IP, 7) 

PX (1) =SPRM2 (IP+NPN-NP, 1) 

PX ( 2 ) =SPRM2 ( IP+NPN— NP , 2 ) 

PX ( 3 ) =SPRM2 ( IP+NPN-NP , 5 ) 

PX(4)=SPRM2 (IP+NPN-NP, 3) 

PX ( 5 ) =SPRM2 ( IP+NPN-NP , 6 ) 

PX ( 6 ) =SPKM2 ( IP+NPN-NP , 4 ) 

PX ( 7 ) =SPRM2 ( IP+NPN-NP , 7 ) 

IF  ( (VY(3)-VY(2) ) .EQ.O.ODO)  THEN 

DLV ( ISV, IP) =0 . 0D0 

ELSE 

DLV (ISV, IP) = ( VY ( 3 ) -VY ( 2 ) ) / (PX ( 3 ) -PX ( 2 ) ) *PERT*PX(1) 

END  IF 

CALL  DRVT ( NDP , PX , VY , PX ( 1 ) , DV1 , DV2 ) 

DVDP1 ( ISV, IP) =DV1 
DVDP2 (ISV, IP) =DV2 

IF  (DVDP1 (ISV, IP) *SP.EQ. 0. 0D0)  THEN 

DVDP1L ( ISV, IP) =0. 0D0 

ELSE 

DVDP1L ( ISV, IP) =DVDP1 ( ISV, IP) *SP/V(ISV, IP, 1) 

END  IF 

ELSE 

CC  CENTRAL  DIFF.  TO  CALCULATE  THE  DERIVATIVE: 

IF  (IM.EQ.13  ) THEN 

IF  ( (V(ISV,IP,2)-V(ISV,IP,5) ) .EQ.O.DO)  THEN 
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+V ( ISV , IP , 5 ) ) 


DVDP1 (ISV, IP) =0 . 0D0 
ELSE 

DVDP1 (ISV, IP) = (-V (ISV, IP, 2 ) 

1 / (SPAR(IP) *2 . 0D0*PER(IP) *SP) 

END  IF 

IF  ( (V(ISV,IP,2)-2.D0*V(ISV,IP,1)+V(ISV,IP,5) ) .EQ.O.DO)  THEN 
DVDP2 (ISV, IP) =0. 0D0 
ELSE 

DVDP2 (ISV, IP)=(  V(ISV, IP, 2 ) ~2 . DO*V (ISV, IP, 1) +V (ISV, IP, 5) ) 

1 / ( ( (SPAR (IP) *PER (IP) ) **2) *SP**2 ) 

END  IF 

IF  (DVDP1 ( ISV, IP) *SPAR ( IP) *SP . EQ . 0 . ODO ) THEN 

DVDP1L ( ISV, IP) =0 . 0D0 

ELSE 

DVDP1L ( ISV, IP) =DVDP1 (ISV, IP) *SPAR(IP) *SP/V(ISV, IP, 1) 

END  IF 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ELSE  IF  (IM.EQ.15  ) THEN 

Al= ( V(ISV, IP, 3 ) ”8 . 0D0*V ( ISV, IP, 2) +8. 0DQ*V ( ISV , IP , 5 ) 

1 -V(ISV, IP, 6) ) 

IF  (Al.EQ.O.ODO)  THEN 
DVDP1 (ISV, IP) “0 . ODO 
ELSE 

DVDP1 (ISV, IP) =A1/ (SPAR (IP) *1 . 2D1*PER (IP) *SP) 

END  IF 

Al” (— V (ISV, IP, 3 ) +1 . 6D1*V ( ISV, IP, 2) -3 . 0D1*  V(ISV, IP, 1) 

1 +1. 6D1*V(ISV, IP, 5) - V (ISV, IP, 6) ) 

IF  (Al.EQ.O.ODO)  THEN 
DVDP2 ( ISV, IP) =0 . ODO 
ELSE 

DVDP2 (ISV, IP) =A1/ ( (X.2D1* (SPAR (IP) *PER(IP) ) **2) *SP**2) 

END  IF 

IF  (DVDP1 ( ISV, IP) *SPAR (IP) *SP. EQ . 0 . ODO)  THEN 

DVDP1L(ISV, IP) =0 . ODO 

ELSE 

DVDP1L ( ISV, IP) =DVDP1 (ISV, IP) *SPAR(IP) *SP/V(ISV, IP, 1) 

END  IF 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ELSE  IF  (IM. EQ. 17  ) THEN 

Al=  ( -V (ISV, IP, 4 ) +9 . ODO*V (ISV, IP, 3 ) 

1 “4 . 5D1*V (ISV, IP, 2) +4 . 5D1*V (ISV, IP, 5) 

1 -9 . ODO*V (ISV, IP, 6) + V ( ISV, IP, 7 ) ) 

IF  (Al.EQ.O.ODO)  THEN 
DVDP1 (ISV, IP) =0 . ODO 
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ELSE 

DVDP1 (ISV, IP)  =A1/ ( SPAR (IP  ) *6 . 0D1*PER ( IP  ) *SP) 
END  IF 


Al=  ( 2 . ODQ*V ( ISV , IP , 4 ) -2 . 7D1*V ( ISV , IP , 3 ) 

1 +2 . 7D2*V ( ISV, IP, 2 ) -4 . 9D2*V ( ISV , IP , 1) 

1 +2 . 7D2  *V (ISV , IP , 5) -2 . 7D1*V ( ISV , IP , 6 ) 

1 +2.QD0*V(ISV,IP,7) ) 

IF  (Al.EQ.O.ODO)  THEN 
DVDP2 (ISV, IP) =0 . ODO 
ELSE 

DVDP2 (ISV, IP) =A1/ ( (1.8D2* (SPAR (IP  ) *PER(IP) )**2) *SP**2) 
END  IF 

IF  (DVDP1 (ISV, IP) *SPAR(IP) *SP.EQ. 0. ODO)  THEN 

DVDP1L( ISV, IP) =0 . ODO 

ELSE 

DVDP1L (ISV, IP) = DVD PI (ISV , IP) *SPAR(IP) *SP/V(XSV, IP, 1) 

END  IF 

END  IF 
END  IF 

DLV ( ISV, IP) =(V(ISV, IP, 5) “V (ISV, IP, 2) )/2 . ODO 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

IF  (III.LT.ND)  THEN 

111=111+1 

ISV=IISV(III) 

GO  TO  170 
END  IF 

CCCCCCCCC  END  OF  STATE  VARIABLE  INCREMENT  CCCCCCCCCCCC 

CC  HARD  COPY  TITLE  FORMAT  OUTPUT : 

IF  (IP.LT.NP)  THEN 
IP=IP+1 

IF  ( IP . GT . NP-NPN)  THEN 
IDGFLG=0 
ELSE 
IDGFLG=1 
END  IF 
GO  TO  90 
END  IF 

CCCCCCCCCCC  END  OF  PARAMETER  INCREMENT  CCCCCCCCCCCCCCC 


111=1 

270  CONTINUE 

ISV=IISV(III) 

IF  (XEND/TF  .EQ.  DFLOTJ (NINT (XEND/TF) ) ) THEN 
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WRITE (6,*) 

WRITE (6,*)  ' 

WRITE (6, 274)  ISV, V(ISV, 1, 1) 
WRITE  (6,  *)  ' — 


274  FORMAT (IX, 'VARIABLE  V = 5 ,12,’,  FUNCTION  VALUE  =',E13.6) 

WRITE (6,272) 

WRITE (6, 273) 


272  FORMAT ( 15X , ' 

1 ' 

2 * 

3 ' 


1 MX, 

2 MX, 

3 MX, 

4 ' ) 


273  FORMAT ( IX , ' 

1 
2 
3 


TIME  ' , 2X , ' IP ' , 4X , ' 

i 

i 

I 


DV-1  ' , IX, 

DVDP-1  MIX, 

LDVDP-1  MIX, 

DVDP-2 ' ) 


DO  280  IP=1,NP 

WRITE (6,275)  XEND, IP, DLV (ISV, IP) , DVDP1 ( ISV, IP) , 
1 DVDP1L(ISV, IP) , DVDP2 (ISV, IP) 

275  FORMAT ( 1 X , F5 . 2 , 2X , 12 , 2X , 4 (E18 . 6 , IX) ) 

280  CONTINUE 


cc 

CC  SORT  THE  EFFECT  ORDER  OF  ALL  PARAMETERS  TO  ONE  STATE  VARIABLE: 
CC 

DO  287  JJ— 1 , 4 
IF  (JJ.EQ.l)  THEN 
DO  J=1,NP 

SORT ( JJ , J) =DLV ( ISV, J) 

END  DO 

ELSE  IF  (JJ.EQ.2)  THEN 
DO  J— 1 , NP 

SORT (JJ, J)=DVDP1 (ISV, J) 

END  DO 

ELSE  IF  (JJ.EQ.3)  THEN 
DO  J”1 , NP 

SORT ( JJ , J) =DVDP1L( ISV, J) 

END  DO 

ELSE  IF  (JJ. EQ. 4)  THEN 
DO  J=1,NP 

SORT(JJ, J)=DVDP2 (ISV, J) 

END  DO 
END  IF 


DO  286  1=1, NP 
286  IDVDP1 (I) =1 


DO  312  J=2 , NP 
AD=DABS ( SORT ( J J , J ) ) 
IA=IDVDP1 (J) 
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DO  301  I=J-1,1,-1 

IF  (DABS (SORT (JJ, I) ) .LE.AD)  THEN 
SORT ( JJ , 1+1) =DABS ( SORT ( JJ , I ) ) 
IDVDP1 (1+1) =IDVDP1 (I) 

ELSE 

GO  TO  310 
END  IF 

301  CONTINUE 


1=0 

310  SORT ( JJ ,1+1) =AO 

IDVDP1 ( 1+1 ) =IA 

312  CONTINUE 

WRITE (6,314)  ( JJ , (IDVDP1 (I) ,1=1, NP) ) 

314  FORMAT (IX,  'PARAMETER  EFFECT  ORDER  ( 9 ,11,  1 ) * 8 , IX, 20(12 

287  CONTINUE 

WRITE (6, *) 

END  IF 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CC  CC 

CC  CALCULATE  THE  SENSIVITY  MEASUREMENT  : CC 

CC  GENERAL  INFLUENCE  OF  PARAMETER  CC 

CC  VECTOR  ON  ONE  STATE  VARIABLE.  CC 

CC  CC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SMPAV1=0 . DO 
SMPAV2=0 . DO 
SMPAV3=Q . DO 
SMPAV4=Q . DO 

DO  316  1=1, NP 

SMPAV1=SMPAV1+DV0P1 ( ISV , I) **2 
SMPAV2=SMPAV2+DLV ( ISV, I) **2 
SMPAV3=SMPAV3+0V0P1L(ISV, I) **2 
316  SMPAV4=SMPAV4+OVOP2 (ISV, I) **2 


SMPAV1=DSQRT ( SMPAV1 ) 
SMPAV2=DSQRT ( SMPAV2 ) 
SMPAV3=DSQRT ( SMPAV3 ) 
SMPAV4=DSQRT ( SMPAV4 ) 


IF  (XEND/TF  .EQ.  DFLOTJ (MINT (XEND/TF) ) ) THEN 


WRITE (6, 

*) 

8 SENSITIVITY 

MEASURE 

(1)  : 

ALL 

P 

ON 

ONE 

V= 

WRITE (6, 

*) 

8 SENSITIVITY 

MEASURE 

(2)  : 

ALL 

P 

ON 

ONE 

V= 

WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(3)  : 

ALL 

P 

ON 

ONE 

v= 

WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(4)  : 

ALL 

P 

ON 

ONE 

v= 

IX)) 


SMPAV2 

SMPAV1 

SMPAV3 

SMPAV4 
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END  IF 


IF  (IPLOT.EQ.l)  THEN 

WRITE (1,7)  ISV 

WRITE (1,405)  V(ISV,1,1) 

DO  281  IP=1,NP 

WRITE (1,276)  DLV ( ISV, IP) , DVDP1 ( ISV, IP) , 

! DVDP2 (ISV, IP) , DVDP1L(ISV, IP) 

276  FORMAT  ( IX,,  4(E12.5,2X)) 

281  CONTINUE 

WRITE (1,318)  SMPAV2 
WRITE (1,318)  SMPAV1 
WRITE (1,318)  SMPAV3 
WRITE (1,318)  SMPAV4 
318  FORMAT ( IX, E12 .5) 

END  IF 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

IF  (III.LT.ND)  THEN 
111=111+1 
GO  TO  270 
END  IF 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

400  CONTINUE 

IF  (K.LT.NIN)  THEN 
K=K+1 

WRITE (5, 404)  TP*DFLOTJ(K) 

404  FORMAT ( IX,  5 TIME  =',F6.3) 

IF (IPLOT.EQ.l)  THEN 
WRITE (1,405)  TP*DFLQTJ(K) 

405  FORMAT ( IX, E12 . 5) 

END  IF 

GO  TO  80 
END  IF 

CLOSE ( UNI T= 6) 

IF ( I PLOT  . EQ . 1 ) THEN 
CLOSE (UNIT=1) 

CLOSE (UNIT=2) 

CLOSE (UNIT=3) 

END  IF 

CCCCCCCCCCCCCCC  END  OF  TIME  INCREMENT  CCCCCCCCCCCCCCCC 

STOP 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

< 

c 


*************************************************************** 


* * 

* C COPYRIGHT  DECEMBER  1987  BY  * 

* THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

* A PUBLIC  CORPORATION  * 

* * 

*************************************************************** 
* * 

* SUBROUTINE  - INPUT1.FOR  * 

* * 

* INPUT  SIMULATION  DATA  FROM  FILE  OR  ALLOW  USER  TO  ENTER  * 

* * 

* LAST  UPDATE  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

* ALAN  BINDEMANN  * 

* * 

* REQUIRES  SUBROUTINES  - NONE  * 

* * 

* PROGRAM  INPUT  - TYPED  IN  BY  USER  OR  READ  IN  BY  USER  * 

* GENERATED  DATA  FILE  * 

* * 


*************************************************************** 


SUBROUTINE  INPUT1 (N , X , Y , H , TOL , METH , MITER , INDEX , NSV , 

IM , PERT , TR , TP , TF , IPLOT , 

OFILNM, PFXLNM) 


IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
CHARACTER* 1 , QUERY 
CHARACTER* 12 , FN, OFILNM, PFILNM 
REAL* 8 Y (20) 


C*************************************************************** 


WRITE(5, 101) 

101  FORMAT (//, IX, * SENSITIVITY  ANALYSIS  IN  THE  TIME  DOMAIN8,/) 
WRITE(5, 102) 

102  FORMAT ( IX, 5 C COPYRIGHT  DECEMBER  1987  BY') 

WRITE (5, 103) 

103  FORMAT ( IX , 8 THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,') 
WRITE(5, 104) 

104  FORMAT ( IX, ' A PUBLIC  CORPORATION') 

WRITE (5, 1) 

1 FORMAT (//, IX, ' ***  Data  Entry  ***',/) 

WRITE (5, 2) 

2 FORMAT ( IX, 8 1 c ) Enter  From  Keyboard') 

WRITE (5, 3) 

3 FORMAT (IX, '2. ) Read  From  File',/) 

ACCEPT  *,I1 

IF(Il.EQ.l)  THEN 
GOTO  27 
END  IF 
WRITE (5, 4) 

4 FORMAT (IX,  8 Input  Filename9) 

ACCEPT  5 , FN 
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5 FORMAT (A12) 

OPEN (UNIT-1 , FILE=FN , STATUS=  8 OLD  8 ) 

READ ( 1 , * ) N 
DO  28  1=1 , N 
28  READ ( 1 , * ) Y (I) 

READ ( 1 , * ) X 
READ ( 1 , * ) H 
READ (1, *)  TOL 
READ ( 1 , * ) METH 
READ ( 1 , * ) MITER 
READ ( 1 , * ) INDEX 
READ ( 1 , * ) NS V 
READ ( 1 , * ) IM 
READ ( 1 , * ) PERT 
READ ( 1 , * ) TR 
READ ( 1 , * ) TP 
READ ( 1 , * ) TF 
READ ( 1 , * ) I PLOT 
READ (1,5)  OFILNM 
READ (1,5)  PFILNM 
CLOSE (UNIT-1) 

RETURN 

27  WRITE (5, 10) 

10  FORMAT (//, IX, 8 Input  Number  of  Equations  to  Integrate’) 

ACCEPT  * , N 
WRITE (5, 15) 

15  FORMAT  (//) 

WRITE (5, 17) 

17  FORMAT ( IX, 8 Default  Values  For  Initial  Conditions8,/) 

DO  16  1=1, N 
Y (I) =0 . 0D0 
WRITE (5, 18)  I 

18  FORMAT (IX, 8 Y( 8 ,12, 8 ) = 0.0D08) 

16  CONTINUE 
WRITE (5, 19) 

19  FORMAT (/, IX, 8 Do  you  wish  to  change  these  parameters  (Y/N)  8 ) 
ACCEPT  120, QUERY 

IF (QUERY. EQ. 8 Y8 . OR . QUERY . EQ . 8y 8 ) THEN 
WRITE (5, 15) 

DO  20  1=1, N 
WRITE (5, 30)  I 

30  FORMAT ( IX,  8 Input  Y(8,I2,8)  (Double  Precision,  i.e.  0.QDQ)8) 

ACCEPT  * , Y (I) 

2 0 CONTINUE 

END  IF 


X=Q. 0D0 

H =1. D-6 
TOL  =1 . D-10 
METH  =1 
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50 

55 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

190 

191 

240 

242 

244 


MITER=2 

INDEX=1 


WRITE (5,50) 

FORMAT ( IX ,//,  8 ****  Data  Required  By  IMSL  Routine  DGEAR  ****«,/) 
WRITE (5, 55) 

FORMAT (IX, 'Default  Values8,/) 

WRITE (5, 60)  H 

FORMAT (IX, 'H  =* , D6. 1) 

WRITE (5,70)  TOL 
FORMAT (IX, 8 TOL  =8,B6.1) 

WRITE (5, 80)  METH 
FORMAT (IX, 'METH  =',I1) 

WRITE (5, 90)  MITER 
FORMAT ( IX , 8 MITER=  8 , 1 1 ) 

WRITE ( 5 , 100 ) INDEX 
FORMAT ( IX , 8 INDEX= 8 , I 1 , / ) 


WRITE(5, 110) 

FORMAT ( IX , 9 Do  you  wish  to  change  any  of  these  parameters  (Y/N) 
ACCEPT  120, QUERY 
FORMAT (Al) 

IF  ( QUERY . EQ . 8 Y 5 . OR . QUERY . EQ . * y 9 ) THEN 
WRITE(5, 130) 

FORMAT (//, IX,  8 Input  H (Double  Precision)8) 

ACCEPT* , H 
WRITE(5, 140) 

FORMAT (IX,  8 Input 
ACCEPT* , TOL 
WRITE(5, 150) 

FORMAT (IX, 'Input 
ACCEPT  190, METH 
WRITE(5, 160) 

FORMAT (IX, 'Input 
ACCEPT  190, MITER 
WRITE(5, 170) 

FORMAT (IX,  8 Input 
ACCEPT  190, INDEX 
FORMAT (II) 

END  IF 
WRITE(5, 191) 

FORMAT (// , IX , 8 Input 
ACCEPT* , NSV 


TOL  (Double  Precision)8) 


METH  (Integer)8) 


MITER  (Integer)8) 


INDEX  (Integer)8) 


the  Number  of  State  Variables8,/) 


IM=13 

PERT=1 . OD-2 
WRITE (5,240) 

FORMAT ( IX, 8 ***  Program  Parameters  ***8,/) 

WRITE (5,242) 

FORMAT ( IX,  8 Derivative  Method  - Central  Difference  With  3 Points 
WRITE (5,244) 

FORMAT ( IX, 8 Percent  used  in  Central  Difference  - l.OD-28,/) 
WRITE(5, 246) 
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246 


248 

250 

252 

254 

256 

259 


w/ 

w/ 

w/ 


Points ' ) 
Points ' ) 


FORMAT (IX, 'Do  You  Wish  to  Change  These  Parameters 
ACCEPT  120, QUERY 

IF  (QUERY. EQ. 'Y ' . OR . QUERY . EQ . 'y' ) THEN 
WRITE (5, 15) 

WRITE (5,248) 

FORMAT ( IX, ' ***  Derivative  Methods  ***',/) 

WRITE (5,250) 

FORMAT ( IX, ' 1 . ) Central  Difference 
WRITE (5,252) 

FORMAT (IX, 8 2 . ) Central  Difference 
WRITE (5,254) 

FORMAT (IX, ' 3 . ) Central  Difference 
WRITE ( 5 , 256) 

FORMAT (IX, ' Input 
ACCEPT  259,11 
FORMAT (II) 

IF (II . EQ. 1)  THEN 
IM=X3 
END  IF 

IF ( II . EQ . 2 ) THEN 
IM=15 
END  IF 

IF (II . EQ . 3 ) THEN 
IM=17 
END  IF 


Points  5 ,/) 
the  Number  of  Your  Choice') 


(Y/N) ') 


WRITE (5,258) 

258  FORMAT (/, XX, 8 Specify  % Used  in  Central  Difference') 

ACCEPT*, PERT 


END  IF 


WRITE (5, 15) 

WRITE (5,268) 

268  FORMAT (IX, ' ***  Simulation  Duration  and  Output  Increment  ***',/) 

WRITE (5,270) 

270  FORMAT (IX, ' Input  Total  Run  Time  (Double  Precision)') 

ACCEPT* , TR 
WRITE (5,272) 

272  FORMAT ( IX, 8 Input  Output  Time  Increment  (Double  Precision)') 

ACCEPT*, TF 
WRITE(5, 302) 

302  FORMAT ( IX, 8 Input  Filename  For  Output  Data8) 

ACCEPT  5 , OFILNM 


WRITE (5,273) 

273  FORMAT (IX, 'Would  You  Like  the  Program  to  Create  a Plotting 

! Output  File  (Y/N) ' ) 

ACCEPT  120, QUERY 


IF (QUERY. EQ. 8 Y8 . OR. QUERY . EQ . 8y 8 ) THEN 

IPLOT=l 

WRITE (5,284) 

284  FORMAT (IX, 

I 'Input  Storage  Time  Increment  for  Plot  (Double  Precision)') 
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304 


ACCEPT* , TP 
WRITE (5, 304) 

FORMAT ( IX, ' Input  Filename  For  Plotting  Data') 
ACCEPT  5 , PFXLNM 

ELSE 

XPLOT=0 

TP=TF 


END  IF 

WRITE(5, 15) 

WRITE (5,274) 

274  FORMAT ( IX,  9 Do  You  Want  to  Store  This  Data  in  a File  (Y/N)  ’) 

ACCEPT  120, QUERY 

IF (QUERY. EQ. 9 Y' . OR . QUERY . EQ . 9y 9 ) THEN 
WRITE ( 5 , * ) 

WRITE(5, 276) 

276  FORMAT ( IX, 9 What  Filename  Do  You  Wish  to  Give  the  Input  Data9) 

ACCEPT  5 , FN 

OPEN (UNIT=1 , FXLE=FM , STATUS=  9 NEW 9 ) 

WRITE (1,*)  N 
DO  282  1=1, N 
282  WRITE ( 1 , *)  Y (I) 

WRITE (1,*)  X 
WRITE (1,*)  H 
WRITE (1,*)  TOL 
WRITE (1,*)  METH 
WRITE (1,*)  MITER 
WRITE (1,*)  INDEX 
WRITE (1,*)  NSV 
WRITE (1,*)  IM 
WRITE (1,*)  PERT 
WRITE (1,*)  TR 
WRITE (1,*)  TP 
WRITE (1,*)  TF 
WRITE (1,*)  I PLOT 
WRITE (1,*)  OFILNM 
WRITE (1,*)  PFILNM 
CLOSE (UNIT=1) 

END  IF 

CCCCCCCCCCCCCCCCCC  END  OF  USER  INPUT  CCCCCC  CCCCCCCCCCCCCC 
RETURN 
END 
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c *************************************************************** 
c * * 

c * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

C * A PUBLIC  CORPORATION  * 

C * * 

C *************************************************************** 

C * 

c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 

Q ***•*•*'*'****'**'**********■***************************************** 

c 

SUBROUTINE  VDATA 
C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

REAL* 8 DAT (100) , PRM(IOO) ,SEC(100) , PRM2 (100) 

INTEGER*4  IFLAG(IOQ) ,NP,ND, INDX(IOO) ,INDX2(100) ,IISV(20) 
CHARACTER*  3 5 , VD ( 1 0 0 ) 

COMMON/ VDAT/ DAT 
COMMON/ PARA/ PRM 
COMMON/ PARA2 / PRM2 
COMMON/SECP/SEC 
COMMON/SIZE/NP, NPN, ND, IXSV 

IF  INITIAL  CALL  TO  VDATA  THEN  READ  IN  PARAMETERS,  DETERMINE  ACTIVE 
PRIMARY  AND  SECONDARY  PARAMETERS,  AS  WELL  AS  ACTIVE  PRIMARY  AND 
SECONDARY  VARIABLES 

IF  (NFLG . EQ . 0)  THEN 

NFLG-1 

OPEN  VEHICLE  DATA  FILE  (THIS  IS  THE  SAME  FILE  AS  USED 
IN  THE  TRANSIENT  SENSITIVITY  MODEL  MODEL. FOR) 

OPEN (UNIT-1 , FILE— ' VDAT . DAT  1 , STATUS- ' OLD  8 ) 

READ  IN  PRIMARY  PARAMETER  FLAG,  PARAMETER  DESCRIPTION  AND 
PARAMTER  VALUES,  AS  WELL  AS  VARIABLE  FLAG,  VARIABLE  DESCRIPTION 
AND  A DUMMY  VARIABLE  VALUE  OF  0.0 

DO  10  1-1,100 

READ ( 1 , * ) I FLAG ( I ) , VD ( I ) , DAT ( I ) 


* 

SUBROUTINE  - VDATA. FOR  * 

* 

PURPOSE  - READ  IN  VEHICLE  PARAMETERS,  DETERMINE  ACTIVE  * 
PARAMETERS,  AND  DETERMINE  ACTIVE  VARIABLES.  * 

RETURNS  THE  PARAMETER  VALUES  TO  SENSITIVITY  * 

PROGRAM  ON  SUBSEQUENT  CALLS  * 

* 

LAST  UPDATE  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

ALAN  BINDEMANN  * 

* 

REQUIRES  SUBROUTINES  - NONE  * 

* 

REQUIRES  DATA  - INPUT  FROM  DATA  FILE  VDAT . DAT  * 

' * 
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IF  (VD(I) .EQ. 'ENDOV* ) THEN 


NDI=I-1 
GOTO  15 
END  IF 
CONTINUE 
CONTINUE 


! TOTAL  # OF  LINES  READ 


10 

15 


SCAN  DATA  TO  DETERMINE  # OF  PRIMARY  PARAMETERS  AND 
# OF  SECONDARY  PARAMETERS 


20 


DO  20  1=1, NDI 

IF  ( VD ( I ) . EQ . ' ENDPP ' ) THEN 

NPP=I~1 

END  IF 

IF  (VD(I) .EQ. 'ENDSP9 ) THEN 

NOPN=I~NPP“2 

END  IF 

CONTINUE 


# OF  SECONDARY  PARAMETERS 


# OF  PRIMARY  PARAMETERS 


RE-ORDER  LIST  OF  PARAMETER  FLAGS  AND  VARIABLE  FLAGS 

DO  30  I=NPP+2 , NPP+NQPN+1 
J=I-1 

DAT ( J ) =DAT ( I ) 

I FLAG ( J) =IFLAG ( I ) 

VD ( J) =VD ( I ) 

30  CONTINUE 

COUNT  # OF  ACTIVE  PARAMETERS  AND  PLACE  IN  ARRAY  PRM 

DO  40  1=1 , NPP+NOPN 
IF  (IFLAG(I) . EQ . 1 ) THEN 
11=11+1 
PRM (II) =DAT ( I ) 

INDX (II) =1 
END  IF 

40  CONTINUE 

NP=II  ! # OF  TOTAL  ACTIVE  PARA 

COUNT  # OF  ACTIVE  SECONDARY  PARAMETERS 

DO  60  I=NPP+1, NPP+NOPN 

IF  (IFLAG(I) . EQ . 1)  THEN 

IIN=IIN+1 

INDX2 (I IN) =I-NPP 

END  IF 

60  CONTINUE 


NPN=IIN 


! # OF  SECONDARY  FLAGED  PARA 


COUNT  NUMBER  OF  ACTIVE  VARIABLES 


DO  70  I=NPP+NOPN+3 , NDI 
IF  (IFLAG(I) .EQ.l)  THEN 
111=111+1 
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70 


c 

c 


IISV (III) =I-NPP— NOPN-2 

END  IF 

CONTINUE 

ND=III 

CLOSE (UNIT=1) 


END  IF 


C ON  SUBSEQUENT  CALLS  TO  VDATA  THIS  SECTION  OF  CODE  IS  USED 
C 

c 

C UPDATED  PARA (FROM  SENSTIVITY  PROGRAM)  SENT  BACK  TO  MODEL: 
C 


DO  80  1=1, NP 
DAT ( INDX ( I ) ) =PRM ( I ) 
80  CONTINUE 


UPDATED  SECONDARY  PARA (FROM  MODEL)  SENT  TO  DGEAR : 


90 

C 


DO  90  IIM-1 , NPN 

PRM2 (IIM) —SEC ( INDX2 (IIM)  ) 

CONTINUE 

RETURN 

END 
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c *************************************************************** 
c * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

C * A PUBLIC  CORPORATION  * 

C * * 

Q *************************************************************** 
C * * 

C * SUBROUTINE  - FCN.FOR  * 

C * * 

C * PURPOSE  - FUNCTION  EVALUATION  ROUTINE  REQUIRED  BY  * 

C * IMSL  INTEGRATION  ROUTINE  DGEAR  * 

C * * 

C * LAST  UPDATE  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

C * ALAN  BINDEMANN  * 

C * * 

C * REQUIRES  SUBROUTINES  - MODEL. FOR  * 

C * * 

C * REQUIRES  DATA  - SEE  IMSL  MANUAL  * 

C * * 

0 *************************************************************** 

c 

SUBROUTINE  FCN (N,X, Y, YPRIME) 

IMPLICIT  DOUBLE  PRECISION  (A-II,0-Z) 

INTEGERS  N 

REAL* 8 Y ( 2 0 ) , YPRIME (20)  , X , VAR (50) 

CALL  MODEL(N,X,Y, YPRIME, VAR, FLG1) 

RETURN 

END 
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c *************************************************************** 

C * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 

C * A PUBLIC  CORPORATION  * 

C * * 

Q *************************************************************** 

c * * 

C * SUBROUTINE  - FCNJ.FOR  * 

C * * 

C * PURPOSE  - DUMMY  FUNCTION  EVALUATION  ROUTINE  REQUIRED  BY  * 

C * IMSL  INTEGRATION  ROUTINE  DGEAR  * 

C * * 

C * LAST  UPDATE  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

C * ALAN  BINDEMANN  * 

C * * 

C * REQUIRES  SUBROUTINES  - NONE  * 

C * * 

C * REQUIRES  DATA  - SEE  IMSL  MANUAL  * 

C * * 

C *************************************************************** 

c 

SUBROUTINE  FCNJ (N , X , Y , PD) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

INTEGER*4  N 

REAL* 8 Y (20) , PD (N, N) , X 

RETURN 

END 
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Q *************************************************************** 

c * * 

c * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 

C * A PUBLIC  CORPORATION  * 

C * * 

Q *************************************************************** 

C * * 

C * SUBROUTINE  - DRVT . FOR  * 

C * * 

C * PURPOSE  - GIVEN  'N'  X,Y  COORDINATES  THIS  PROGRAM  FITS  * 

C * AN  N-l  ORDER  POLYNOMIAL  THRU  THE  POINTS  USING  * 

C * THE  METHOD  OF  LEAST  SQUARES.  THE  ROUTINE  * 

C * THEN  CALCULATES  THE  1ST  & 2ND  DERIVATIVES  * 

C * OF  THE  POLYNOMIAL  AT  COORDINATE  9 XC 8 * 

C * * 

C * LAST  REVISED  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

C * ALAN  BINDEMANN  * 

C * * 

C * REQUIRES  ROUTINES  - GAUSS . FOR  * 

C * * 

C * ARGUMENTS:  N - NUMBER  OF  X , Y COORDINATES  * 

C * X - AN  N DIMENSIONAL  ARRAY  OF  X-POINTS  * 

C * Y - AN  N DIMENSIONAL  ARRAY  OF  Y-PQINTS  * 

C * XC  - DERIVATIVE  EVALUATION  POINT  * 

C * DV1  --  FIRST  DERIVATIVE  * 

C * DV2  - SECOND  DERIVATIVE  * 

C * * 

C *************************************************************** 

c 

SUBROUTINE  DRVT (N , X , Y , XC , DV1 , DV2 ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

REAL* 8 X(7) ,Y(7) ,A(7,8) ,C(7) ,C1(7) ,B(7,7) ,D(7) ,E(7) 

INTEGER*4  N,I,J,K 

DV1=0 . 0D0 

DV2=0. 0D0 

DO  1=1, N 

C ( I ) =0 . 0D0 

DO  J=1 , N+l 

A ( I , J ) =0 . 0D0 

END  DO 

END  DO 

DO  1=1, N 

DO  K=1,N 

A(I,N+1)=A(I,N+1)+Y(K) *X (K) ** (1-1) 

END  DO 
DO  J=1,N 
DO  K=1 , N 

A(I,J)=A(I,J)+X(K) **(I-1) *X(K) **(J-1) 

END  DO 
END  DO 
END  DO 

CALL  GAUSS (N, A, C) 

DO  1=2, N 

DV1=DV1+C ( I ) * (1-1) *XC** (1-2) 
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END  DO 
DO  1=3, N 
DV2=DV2+(I- 
END  DO 
RETURN 
END 


■2) * ( I — 1) *C(I) *XC** (1-3) 
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q *************************************************************** 
C * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

C * A PUBLIC  CORPORATION  * 

C * * 

c *************************************************************** 

C * * 

C * SUBROUTINE  - GAUSS . FOR  * 

C * * 

C * PURPOSE  - SOLUTION  OF  SIMULTANEOUS  EQUATIONS  BY  * 

C * GAUSSIAN  ELIMINATION  FOR  SYSTEM  OF  EQUATION  * 

C * OF  THE  FORM  [A][X]=[B]  * 

C * * 

C * LAST  REVISED  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

C * ALAN  BINDEMANN  * 

C * * 

C * REQUIRES  ROUTINES  - NONE  * 

C * * 

C * SUBROUTINE  ARGUMENTS:  N - NUMBER  OF  EQUATIONS  * 

C * A - N X N MATRIX  * 

C * B - N X 1 MATRIX  * 

C * X - N X 1 SOLUTION  MATRIX  * 

C * * 

Q *************************************************************** 

c 

SUBROUTINE  GAUSS (N, A, X) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

REAL* 8 A (7, 8) ,X(7) 

M=N+1 
L=N-1 

DO  12  K=1 , L 
JJ=K 

BIG=ABS (A (K, K) ) 

KP1=K+1 

SEARCH  FOR  LARGEST  POSSIBLE  PIVOT  ELEMENT 
DO  7 I=KP1 , N 
AB=ABS (A ( I , K) ) 

IF ( BIG-AB)  6,7,7 

6 BIG=AB 
JJ=I 

7 CONTINUE 

DECISION  ON  NECESSITY  OF  ROW  INTERCHAGE 
IF(JJ-K)  8,10,8 

ROW  INTERCHANGE 

8 DO  9 J=K , M 
TEMP=A(JJ, J) 

A ( JJ , J) =A (K, J) 

9 A (K, J) =TEMP 

CALCULATION  OF  ELEMENTS  OF  NEW  MATRIX 
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DO  11  I=KP1,N 
QUOT=A(I,K)/A(K,K) 

DO  11  J=KP1,M 

11  A ( I , J ) =A ( I , J ) “QUOT* A ( K , J ) 

DO  12  I=KP1 , N 

12  A ( I , K)  =0 . 0 

FIRST  STEP  IN  BACK  SUBSTITUTION 
X (N) =A (N , M) /A (N , N) 

REMAINDER  OF  BACK  SUBSTITUTION  PROCESS 
DO  14  NN=1 „ L 
SUM=Q. 

X=N~NN 

IP1=I+1 

DO  13  J=IP1,N 

13  SUM=SUM+A(I, J) *X(J) 

14  X ( I ) = ( A ( I , M) -SUM) /A (I, I) 

RETURN 

END 
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Q *************************************************************** 

c * * 

c * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 

C * A PUBLIC  CORPORATION  * 

C * * 

Q *************************************************************** 

C * 

SUBROUTINE  NAME:  MODEL 


PURPOSE  - TO  CALCULATE  THE  VEHICLE  RESPONSE  TO 

TRANSIENT  MOTION  USING  A 3 DEGREE  OF  FREEDOM 
VEHICLE  MODEL. 


LAST  REVISED  - 12/18/87 


BY  - ANDRZEJ  G.  NALECZ 
ALAN  C.  BINOEMANN 


* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

Q *************************************************************** 


c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 


REQUIRES  SUBROUTINES  - NONE 
CALLING  SEQUENCE: 

CALL  MODEL (N,X, Y, YPRIME,VAR) 
ARGUMENTS : 

INPUT:  COMMON  BLOCKS  VDAT,  PARA,  DATA, 
OUTPUT:  INTEGRATION  ARGUMENTS  YPRIME(l-8) 


SUBROUTINE  MODEL (N, X, Y, YPRIME , VAR , FLG1 ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  BLOCK  CONTAINING  PRIMARY  VEHICLE  PARAMETERS 


COMMON/VDAT/ 

A, 

AX, 

B, 

CTOT , 

Dl, 

D2  , 

DF, 

FRCZ , 

GF, 

HS, 

HUE, 

HUR, 

HRA, 

IX, 

iz, 

KF, 

KR, 

KTQT, 

L, 

M, 

MS, 

MUF, 

MUR, 

00, 

Ql, 

RRCZ , 

TF, 

TR, 

u, 

WD, 

AO, 

Al, 

A2  , 

Bl, 

B3  , 

B4  , 

CMF, 

CMR, 

ISF, 

PO, 

PI, 

P2, 

SN, 

DFAC , 

G, 

GC, 

PCA1 , 

PCA2  , 

PCA3  , 

PCA4  , 

PFY1 , 

PFY2  , 

PFY3  , 

PFY4  , 

PAB1 , 

PAB2  , 

PAB3  , 

PAB4  , 

PFA1 , 

PFA2 , 

PFA3  , 

PFA4  , 

PMUX1, 
PWTF , 

PMUX2 , 
PWTR 

PMUX3 , 

PMUX4 , 

PMUY1 , 

PMUY2 , 

PMUY3 , 

PMUY4 

COMMON  BLOCK  CONTAINING  SECONDARY  VEHCILE  PARAMETERS 

COMMON  /SECP/  CA ( 4 ) , FY ( 4 ) , AA ( 4 ) , FFAA ( 4 ) , MUX ( 4 ) , MUY ( 4 ) , 
! TFWT , TRWT 


C 

C 


INTEGER* 4 N, FLG1 
REAL* 8 AA,  A, 


AO, 


Al, 


A2  , 


ACC, 


AF, 
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AR,  AX, 

CFZ (4) , CMF, 
npar  pv 


DFAC . 
FCUF , 
FX(4) 
H, 

KR, 

MUX, 

R, 

RWTUW 


FY, 

FCUR 
FXF, 

HRA, 

KF, 

MUY,  fu, 
RDCL ( 4 ) , ROOT 
SMAX ( 4 ) , SN, 


B, 

CMR, 
FCS , 
FI, 
FXR, 
HS, 
KTOT, 
PO, 


Bl, 

B3  , 

B4  , 

CA, 

CTOT , 

Dl, 

D2  , 

DF, 

FCSF, 

FFAA, 

FMX ( 4 ) , 

FMY ( 4 ) , 

FCSR, 

FRC, 

FRCZ, 

FWTBR, 

FWTRCH , 

FWTUW , 

FZF , 

FZR, 

FZ ( 4 ) , 

G, 

GC , GF , 

HUE, 

HUR, 

ISF, 

IX, 

IZ, 

L, 

M, 

MS, 

MUF, 

MUR, 

PI  t 

P2, 

Q, 

00, 

01, 

ROWDOT , 

RRC, 

RRCZ, 

RWTBR, 

RWTRCH 

TF, 

TFWT , 

TR, 

TRC, 

TRWT , 

WD, 

Y (20) , 

YPRIME (20) , PRM, 

DAT, 

CALCULATE  NEW  FORWARD  VELOCITY 


IF  (IFLG.NE. 1)  THEN 

UO^U 

IFLG=1 

END  IF 


U — UQ  AX  * G * X 

C CALCULATE  THE  CURRENT  DYNAMIC  STATE  OF  THE  VEHICLE 

R^IOOOO . 0D0 
ACC=Q.0DO 

IF  ( Y (2 ) .NE. 0. 0D0)  THEN 
R = U / Y (2) 

ACC  = U**2/R 
END  IF 


C CALCULATE  THE  DYNAMIC  FORCES  AND  WEIGHT  TRANSFER  COMPONENTS 


FCS  = ACC  * MS  / GC  ! K1 

TRC  = FCS  * HRA  * DCQS(Y(6))  !J1 

FRC  — KF  / KTOT  * TRC  ill 

RRC  = KR  / KTOT  * TRC  ! 14 

FWTBR  * FRC  / TF  1H1-1 

RWTBR  * RRC  / TR  1H2-1 

FCSF  - FCS  * B / L ! 12 

FCSR  = FCS  * A / L ! 15 

FWTRCH  = FCSF  * FRCZ  / TF  1H1-2 

RWTRCH  = FCSR  * RRCZ  / TR  1H2-2 

FCUF  = ACC  * MUF  / GC  ! 13 

FCUR  = ACC  * MUR  / GC  ! 16 
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FWTUW 

= 

FCUF  * HUF  / TF 

! Hl“3 

RWTUW 

= 

FOUR  * HUR  / TR 

! H2-3 

TFWT 

= 

FWTBR  + FWTRCH  + 

FWTUW 

!G1 

TRWT 

= 

RWTBR  + RWTRCH  + 

RWTUW 

!G1 

TFWT 

= 

PWTF*TFWT 

TRWT 

PWTR*TRWT 

C CALCULATE  NORMAL  WHEEL  REACTIONS 

FZF=MS*G*B/L/GC+MUF*G/GC+AX*G/GC/L* (HS*MS+HUF*MUF+HUR*MUR) 
FZR=MS*G*A/L/GC+MUR*G/GC-AX*G/GC/L* (HS*MS+HUF*MUF+HUR*MUR) 

FZF=M*G*B/L/GC+AX*G/GC*HS/L*MS 
FZR=M*G*A/L/GC~AX*G/GC*HS/L*MS 

CALCULATE  BRAKE  DISTRIBUTION  FACTOR 


IF  ( AX 
Q=l. 0D0 

.LT. 

0.0D0 

.AND.  WD 

• EQ. 

1 ) THEN 

END  IF 
IF  ( AX 
Q—Q . 0D0 
END  IF 

. LE . 

0 . 0D0 

.AND.  WD 

.EQ. 

2 ) THEN 

IF  ( AX 

.GT. 

0. 0D0 

.AND.  AX 

.LE. 

0.3D0  ) THEN 

Q=QO 
END  IF 

IF  ( AX  .GT.  0 . 3 DO  ) THEN 

Q=Q0+Q1*AX 

END  IF 

CALCULATE  BRAKING  OR  THRUST  FORCE  ON  FRONT  TIRES 


FXF  = M * AX  * G / GC  * Q ! F2 

FXR  =M*AX*G/GC*  (1.0D0-Q)  ! F2 

CALCULATE  THE  TIRE  NORMAL  FORCES 


FZ ( 1 ) = FZF 

/ 

2 . 0D0 

+ 

TFWT 

! FI 

FZ (2)  = FZF 

/ 

2 . 0D0 

TFWT 

! FI 

FZ (3)  = FZR 

/ 

2 . 0D0 

+ 

TRWT 

! FI 

FZ (4)  = FZR 

/ 

2.0D0 

_ 

TRWT 

1 FI 

CONVERT  NORMAL  WHEEL  REACTIONS  TO  POUNDS  AS  REQ 8 D BY 
CALS PAN  TIRE  DATA 

DO  10  1=1,4 

10  CFZ(I)  = FZ ( I ) / DFAC  ! FI 

C CALCULATE  PEAK  BRAKING  COEFFICIENTS 

DO  30  1=1,4 

30  MUX ( I ) = PO  + PI  * CFZ(I)  + P2  * CFZ(I)**2  !E2 

MUX ( 1 ) =PMUX1*MUX ( 1 ) 
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MUX ( 2 ) =PMUX2  *MUX ( 2 ) 

MUX ( 3 ) =PMUX3  *MUX ( 3 ) 

MUX ( 4 ) =PMUX4  *MUX ( 4 ) 

C CALCUALTE  PEAK  LATERAL  FORCE  COEFFICIENTS 

DO  40  1=1,4 

40  MUY(I)  = B3  + B1  * CFZ(I)  + B4  * CFZ(I)**2  1E1 

MUY ( 1 ) =PMUY 1 *MUY ( 1 ) 

MUY ( 2 ) =PMUY2  *MUY ( 2 ) 

MUY ( 3 ) =PMUY3  *MUY ( 3 ) 

MUY ( 4 ) =PMUY4  *MUY ( 4 ) 

C CALCULATE  THE  MAXIMUM  SIDE  FORCES  WITH  LONGITUDINAL  ACCELERATIO 


c 

EQUAL  TO  ZERO 

42 

DO  42  1=1,4 

FMY(I)  = SN  * MUY ( I ) * FZ(I)  / 100. 0D0  !25 

C 

CALCULATE  ACCELERATION  AND  BRAKING  FORCE  ON  TIRES 
FX (1) =FXF/2 . 0D0 
FX ( 2 ) =FXF/2 . 0D0 
FX ( 3 ) =FXR/2 . 0D0 
FX ( 4 ) =FXR/2 . 0D0 

44 

DO  44  1=1,4 

FMX(I)  = SN  * MUX (I)  * FZ (I)  / 100. 0D0  !26 

C 

C 

CALCUALTE  MAXIMUM  SIDE  FORCES  POSSIBLE  BY  USING  THE 
ELLIPSE  CONCEPT 

FRICTION 

46 

DO  46  1=1,4 

SMAX(I)  = DSQRT ( FMY ( I ) * * 2 - ( FX ( I ) *MUY ( I ) /MUX ( I ) ) * * 2 ) 

C 

CALCULATE  RADICALS  FOR  TIRE  MODEL 

50 

DO  50  1=1,4 

RDCL ( I ) =DSQRT ( (SN*MUY(I) *FZ (I) /100 . 0D0) **2- 
! (MUY (I) /MUX (I) ) **2*FX(I) **2)  ! D2 

! D2 

C 

CALCULATE  SLIP  ANGLES 

AF=  D1  - ( Y ( 1 ) + A * Y (2) ) / U ! D3 

AR=D2+DF*Y(6)  + ( B * Y(2)  - Y(l))  / U !D3 

C 

CALCULATE  CORNERING  STIFFNESSES 

20 

DO  20  1=1,4 

CA (I)  = (AO  + A1  * CFZ(I)  - A1  / A2  * CFZ(I)**2)  * 
CONTINUE 

DFAC  ! D1 

CA ( 1) =PCA1*CA ( 1) 
CA ( 2 ) =PCA2  *CA ( 2 ) 
CA ( 3 ) =PCA3  *CA ( 3 ) 
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CA ( 4 ) =PCA4  *CA ( 4 ) 
CALCULATE  NEW  ALPHA  BARS 


AA ( 1 ) = CA ( 1 ) 
AA ( 2 ) = CA(2) 
AA ( 3 ) = CA ( 3 ) 
AA ( 4 ) = CA ( 4 ) 


* AF  / RDCL(l) 

* AF  / RDCL ( 2 ) 

* AR  / RDCL ( 3 ) 

* AR  / RDCL (4) 


! Cl 
! Cl 
! Cl 
i Cl 


AA ( 1 ) - PAB1*AA ( 1 ) 
AA ( 2 ) = PAB2  *AA ( 2 ) 
AA ( 3 ) = PAB3  *AA ( 3 ) 
AA ( 4 ) = PAB4  *AA ( 4 ) 


CALCULATE  CORNERING  FORCE  PER  BODY  ROLL  ANGLE  DUE . TO  INCLINATIO 
OF  THE  FRONT  WHEELS 


FI  = ISF  * GF 


SB2 


CALCULATE  NEW  TIRE  FUNCTIONS 


DO  54  1=1,4 

FFAA(I)  = AA ( I ) - AA (I)  * DABS ( AA ( I ) ) / 3 . 0D0  + 

AA ( I ) **3  / 27 . 000 

FFAA ( 1) =PFA1*FFAA (1) 

FFAA ( 2 ) =PFA2 * FFAA ( 2 ) 

FFAA ( 3 ) =PFA3  *FFAA ( 3 ) 

FFAA ( 4 ) =PFA4  *FFAA ( 4 ) 

NOTE : SIDE  FORCE  DUE  TO  BOTH  FRONT  TIRES'  INCLINATION  IS 

DIVIDED  BETWEEN  THE  LEFT  AND  RIGHT  TIRE  FORCES 


CALCULATE  FRONT  TIRE  FORCES  INCLUDING  FORCE  DUE  TO  INCLINATION 
DO  56  1=1,2 

FY ( I ) = SN  * MUY(I)  * FZ (I)  * FFAA (I ) / 100. 0D0  + 

FI  * Y(6)/2.0D0 

CALCULATE  REAR  TIRE  FORCES 

DO  58  1=3,4 

FY ( I ) = SN  * MUY(I)  * FZ ( I ) * FFAA ( I ) / 100. 0D0 

FY (1) =PFY1*FY ( 1) 

FY(2)=PFY2*FY(2) 

FY ( 3 ) =PFY  3 *FY ( 3 ) 

FY ( 4 ) =PFY4  *FY ( 4 ) 

CHECK  TO  SEE  IF  MAXIMUM  SIDE  FORCES  HAVE  BEEN  EXCEEDED 


DO  60  1=1,4 

IF  ( FY ( I ) .GT.  SMAX(I)  ) GOTO  62 

GENERATE  THE  EQUATIONS  OF  MOTION  FOR  THE  VEHICLE 


C GENERATE  EXPRESSION  FOR  LATERAL  VELOCITY 

VDOT=(FY(l)+FY(2)+FY(3)+FY(4) - (M/GC- (MS*HRA/GC) **2/IX) * 

! U*Y  ( 2 ) -MS*HRA/GC/IX*  ( ~KTOT*Y  { 6 ) -CTOT*Y  ( 3 ) -i-MS*G/GC*HRA* 

! Y(6) ) )/ (M/GC-(MS*HRA/GC) **2/IX) 

C GENERATE  EXPRESSION  FOR  YAW  ANGULAR  ACCELERATION 

RDOT=( (FY (1) +FY ( 2 ) ) *A~ ( FY ( 3 ) +FY ( 4 ) ) *B+CMF*AF+CMR*AR) /IZ 

C GENERATE  EXPRESSION  FOR  ROLL  ANGULAR  ACCELERATION 

ROWDOT= ( -KTOT*Y ( 6 ) »CTOT*Y ( 3 ) -MS/GC*HRA* (U*Y ( 2 ) +VDOT) 

! +MS*G/GC*HRA*Y(6) )/IX 

CC  GENERATE  EQUATIONS  OF  INTEGRATION 

YPRIME ( 1 ) —VDOT 
YPRIME ( 2 ) —RDOT 
YPRIME ( 3 ) — ROWDOT 
YPRIME ( 4 ) =Y ( 1 ) 

YPRIME ( 5 ) =Y ( 2 ) 

YPRIME ( 6 ) =Y ( 3 ) 

YPRIME ( 7 ) ~U * DCOS (Y(5) ) -Y(l) *DSIN(Y(5)  ) 

YPRIME  (8)  =U*DSIN  (Y(5)  ) >”Y(1)  *DCOS(Y(5)  ) 

C SET  VARIABLE  VALUES  EQUAL  TO  VALUES  CALCULATED  BY  SUBROUTINE 

C MODEL 

VAR ( 9 ) =AF 
VAR (10) “ AR 
VAR (11) —FY (!) 

VAR ( 12 ) =FY ( 2 ) 

VAR ( 13 ) =FY ( 3 ) 

VAR ( 14 ) =FY ( 4 ) 

VAR ( 15 ) =SMAX ( 1 ) 

VAR (16) ™SMAX ( 2 ) 

VAR ( 17 ) -SMAX ( 3 ) 

VAR ( 18 ) =SMAX ( 4 ) 

VAR (19) =CA ( 1) 

VAR (20) =CA ( 2 ) 

VAR (21) =CA ( 3 ) 

VAR  (22)  — CA  ( 4 ) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CC  CC 

CC  UPDATED  SEC.  PARA  SENT  TO  DGEAR:  CC 

CC  CC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

CALL  VDATA 

IF (FLG1 . EQ. 1)  THEN 
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WRITE (1,52)  X,U,Y(1) ,Y(2) ,Y(6) *57 . 3D0 , AF*57 . 3D0 , 

AR*57 . 3 DO , FY ( 1 ) , FY ( 2 ) , FY ( 3 ) , FY ( 4 ) 

FORMAT ( IX, F6.2,2X,F6.2,2X,5(F8.4,2X) ,4(F10.4,2X) ) 

WRITE (2, 55)  X, ACC,R, Y (7) , Y ( 8 ) , FZ ( 1) , FZ ( 2 ) , FZ ( 3 ) , FZ ( 4 ) , 

TFWT , TRWT 

FORMAT ( IX , F6 . 2 , 2X , F7 . 4 , 2X , F8 . 2 , 2X , 2 ( F7 . 3 , 2X) ,6(F10.4,2X) ) 

WRITE ( 3 , 57 ) X , C A ( 1 ) ,CA(3) ,RDCL(1) ,RDCL(3) ,AA(1) ,AA(3) , FFAA ( 1) , 
FFAA ( 3 ) 

FORMAT ( IX ,F6.2,2X,2(FX0.2,2X) ,6(F10.4,2X) ) 

END  IF 
RETURN 


TERMINATION  ROUTINE  FOR  EXCEEDED  TIRE  FORCES 


WRITE (6,*)  9 THE  MAXIMUM  ALLOWABLE  TIRE  FORCE  WAS  EXCEEDED,* 

IF  (I.EQ.l)  THEN 

WRITE (6,^)  1 AT  THE  FRONT  LEFT  TIRE' 

END  IF 

IF  (I.EQ.2)  THEN 

WRITE (6,*)  9 AT  THE  FRONT  RIGHT  TIRE 9 

END  IF 

IF  (I.EQ.3)  THEN 

WRITE (6,*)  'AT  THE  REAR  LEFT  TIRE 9 
END  IF 

IF  (I.EQ.4)  THEN 

WRITE (6,*)  'AT  THE  REAR  RIGHT  TIRE 9 
END  IF 
WRITE (6, *) 

WRITE (6,*)  'PROGRAM  TERMINATED8 

STOP 

END 
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Q *************************************************************** 

c * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

C * A PUBLIC  CORPORATION  * 

C * * 

C *************************************************************** 


c 

* 

* 

c 

* 

SUBROUTINE  NAME: 

MODEL 

* 

c 

* 

* 

c 

* 

PURPOSE:  TO  CALCULATE  THE  RESPONSE  OF  A 2 DEGREE  OF 

* 

c 

* 

FREEDOM 

SPRING  MASS  DAMPER  SYSTEM  WITH  NON" 

* 

c 

* 

LINEAR 

DAMPING  COEFFICIENTS. 

* 

c 

* 

* 

c 

* 

CALLING  SEQUENCE 

* 

c 

* 

* 

c 

* 

CALL  MODEL(M,X,Y, YPRIME, VAR, IFLG1) 

* 

c 

* 

* 

c 

* 

ARGUMENTS : 

* 

c 

* 

* 

c 

* 

N 

- NUMBER  OF  EQUATIONS  TO  INTEGRATE 

* 

c 

* 

X 

- TIME 

* 

c 

* 

Y 

- ARRAY  OF  STATE  VARIABLES 

* 

c 

* 

YPRIME 

- ARRAY  OF  INTEGRATION  ARGUMENTS 

* 

c 

* 

VAR 

- SECONDARY  VARIABLE  ARRAY 

* 

c 

* 

IFLG1 

- INTEGER  FLAG 

* 

c 

* 

* 

0 *************************************************************** 


SUBROUTINE  MODEL ( N, X, Y , YPRIME , VAR, IFLG1) 

IMPLICIT  DOUBLE  PRECISION  (A»H,0-Z) 

REAL* 8 Ml,  M2,  K1 , K2 , MU1,  MU2 , Cl,  C2 , Y(20),  YPRIME(20), 

! VAR (50),  Z10,  Z20 

NOTE:  THE  ORDER  OF  PARAMETERS  IN  COMMON  BLOCK  VDAT  MUST  BE  IDENTICAL 
TO  THE  ORDER  IN  FILE  VDAT . DAT 

COMMON/VDAT/  Ml,  M2,  Kl,  K2 , MU1,  MU2 , Z10,  Z20 
CALL  VDATA 


CALCULATE  DAMPINXNG  COEFFIECIENTS 

Cl  = MU1  * DABS ( Y ( 1)  ) 

C2  = MU2  * DABS ( Y(3)  - Y(l)  ) 

CALCULATE  FORCE  OF  SPRING  1 AND  FORCE  OF  DASHPOT  1 

FS1  * ( Y (2 ) - Z10  ) * Kl 
FD1  = Y ( 1)  * Cl 

CALCULATE  FORCE  OF  SPRING  2 AND  FORCE  OF  DASHPOT  2 
FS2  = ( Y (4 ) - Z20  - Y (2 ) + Z10  ) * K2 
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FD2 


( Y ( 3 ) - Y ( 1 ) ) * C2 


CALCLUATE  EXCITATION  FORCE 
FI  = 0.0D0 


CALCULATE  EQUATIONS  OF  INTEGRATION 


YPRIME(l) 
YPRIME ( 2 ) 
YPRIME ( 3 ) 
YPRIME (4) 


-(  FS1  + FD1  - FS2  ~ FD2  ) / Ml 

Y ( 1) 

FI  - ( FS2  + FD2  ) / M2 

Y ( 3 ) 


ADDITIONAL  CALL  TO  SUBROUTINE  VDATA 


CALL  VDATA 


RETURN 

END 
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c *************************************************************** 

c * * 

c * C COPYRIGHT  DECEMBER  1987  BY 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , 

C * A PUBLIC  CORPORATION 

C * 

c *************************************************************** 


C 

* 

* 

c 

* 

SUBROUTINE  NAME: 

MODEL 

* 

c 

* 

* 

c 

* 

PURPOSE:  TO  CALCULATE  THE  RESPONSE  OF  A 2 DEGREE  OF 

* 

c 

* 

FREEDOM 

SPRING  MASS  DAMPER  SYSTEM  WITH  NON- 

* 

c 

* 

LINEAR, 

DAMPING  COEFFICIENTS. 

* 

c 

* 

* 

c 

* 

CALLING  SEQUENCE 

® 

9 

* 

c 

* 

* 

c 

* 

CALL  MODEL (N , X , Y , YPRIME , VAR , IFLG1 ) 

* 

c 

* 

* 

c 

* 

ARGUMENTS : 

* 

c 

* 

* 

c 

* 

N 

- NUMBER  OF  EQUATIONS  TO  INTEGRATE 

* 

c 

* 

X 

- TIME 

* 

c 

* 

Y 

- ARRAY  OF  STATE  VARIABLES 

* 

c 

* 

YPRIME 

- ARRAY  OF  INTEGRATION  ARGUMENTS 

* 

c 

* 

VAR 

- SECONDARY  VARIABLE  ARRAY 

* 

c 

* 

IFLG1 

- INTEGER  FLAG 

* 

c 

* 

* 

c *************************************************************** 


SUBROUTINE  MODEL (N , X , Y , YPRIME , VAR , IFLG1 ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

REAL* 8 Ml , M2,  Kl,  K2 , MU1,  MU2 , Cl,  C2 , Y(2Q),  YPRIME (20), 

! VAR (50) , Z10,  Z20 

COMMON  BLOCK  CONTAINING  PRIMARY  VEHICLE  PARAMETERS 

NOTE:  THE  ORDER  OF  PARAMETERS  IN  COMMON  BLOCK  VDAT  MUST  BE  IDENTICAL 
TO  THE  ORDER  IN  FILE  VDAT . DAT 

COMMON/VDAT/  Ml,  M2,  Kl,  K2 , MU1,  MU2 , Z10,  Z20 
CALL  VDATA 


CALCULATE  DAMPINXNG  COEFF1ECIENTS 

Cl  = MU1  * DABS ( Y ( 1)  ) 

C2  - MU2  * DABS ( Y(3)  - Y(l)  ) 

CALCULATE  FORCE  OF  SPRING  1 AND  FORCE  OF  DASHPOT  1 

FS1  = ( Y (2 ) - Z10  ) * Kl 
FD1  = Y(l)  * Cl 

CALCULATE  FORCE  OF  SPRING  2 AND  FORCE  OF  DASHPOT  2 
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FS2  = ( Y (4 ) - Z20  - Y ( 2 ) + Z10  ) * K2 

FD2  = ( Y ( 3 ) - Y ( 1)  ) * C2 

CALCLUATE  EXCITATION  FORCE 

FI  = 0.0D0 

CALCULATE  EQUATIONS  OF  INTEGRATION 

YPRIME(l)  = -(  FS1  + FD1  - FS2  - FD2  ) / Ml 
YPRIME ( 2 ) = Y ( 1 ) 

YPRIME  (3)  = FI  - ( FS2  + FD2  ) / M2 
YPRIME (4)  = Y ( 3 ) 

DEFINE  SECONDARY  VARIABLES 

VAR ( 5 ) =FSX 
VAR ( 6 ) — FD1 

ADDITIONAL  CALL  TO  SUBROUTINE  VDATA 

CALL  VDATA 

RETURN 

END 
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c ************************************************** ************* 
c * * 

c * C COPYRIGHT  DECEMBER  1987  BY  * 
C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 
C * A PUBLIC  CORPORATION  * 
C * * 
C *************************************************************** 


c 

* 

* 

c 

* 

SUBROUTINE  NAME: 

MODEL 

* 

c 

* 

* 

c 

k 

PURPOSE:  TO  CALCULATE  THE  RESPONSE  OF  A 2 DEGREE  OF 

* 

c 

* 

FREEDOM 

SPRING  MASS  DAMPER  SYSTEM  WITH  NON- 

* 

c 

* 

LINEAR 

DAMPING  COEFFICIENTS. 

* 

c 

k 

* 

c 

k 

CALLING  SEQUENCE 

« 

• 

* 

c 

k 

* 

c 

k 

CALL  MODEL (N , X , Y , YPRXME , VAR, IFLG1 ) 

* 

c 

* 

* 

c 

* 

ARGUMENTS : 

* 

c 

* 

* 

c 

k 

N 

- NUMBER  OF  EQUATIONS  TO  INTEGRATE 

k 

c 

* 

X 

- TIME 

■k 

c 

* 

Y 

- ARRAY  OF  STATE  VARIABLES 

k 

c 

* 

YPRIME 

- ARRAY  OF  INTEGRATION  ARGUMENTS 

k 

c 

* 

VAR 

- SECONDARY  VARIABLE  ARRAY 

k 

c 

* 

IFLG1 

- INTEGER  FLAG 

k 

c 

k 

k 

Q kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

SUBROUTINE  MODEL (N , X, Y, YPRXME, VAR, IFLG1) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C 

REAL* 8 Ml,  M2,  Kl,  K2 , MU1,  MU 2 , Cl,  C2 , Y(2G),  YPRIME(20), 

i VAR (50) , Z1Q,  Z20 , PCI,  PC2 

C 

C COMMON  BLOCK  CONTAINING  PRIMARY  VEHICLE  PARAMETERS  ALONG  WITH 
C PARAMETER  COEFFICIENTS  PCI  AND  PC2 

C 

C NOTE : THE  ORDER  OF  PARAMETERS  IN  COMMON  BLOCK  VDAT  MUST  BE  IDENTICAL 
C TO  THE  ORDER  IN  FILE  VDAT . DAT 

C 

COMMON/VDAT/  Ml,  M2,  Kl , K2 , MU1,  MU2 , Z10,  Z20,  PCI,  PC2 
C 

C COMMON  BLOCK  CONTAINING  VALUES  OF  SECONDARY  PARAMETERS 
C 

C NOTE:  THE  ORDER  OF  PARAMETERS  IN  COMMON  BLOCK  SECP  MUST  BE  IDENTICAL 
C TO  THE  ORDER  OF  PARAMETER  COEFFICIENTS  IN  FILE  VDAT . DAT 

C 

COMMON/ SECP/  Cl,  C2 
C 

CALL  VDATA 


CALCULATE  DAMPENING  COEFFIECIENTS 
Cl  = MU1  * DABS ( Y ( 1)  ) 
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C2  = MU 2 * DABS ( Y(3)  - Y(l)  ) 

MULTIPLY  SECONDARY  PARAMETERS  BY  PARAMETER  COEFFICIENTS 

Cl  = Cl  * PCI 
C2  = C2  * PC2 


CALCULATE 

FORCE  OF 

SPRING  1 AND 

FORCE 

OF 

DASHPOT 

1 

FS1 

= ( Y(2) 

- Z10  ) * K1 

FD1 

= Y(l)  * 

Cl 

CALCULATE 

FORCE  OF 

SPRING  2 AND 

FORCE 

OF 

DASHPOT 

2 

FS2 

= ( Y(4) 

- Z20  - Y ( 2 ) 

+ zio 

) * 

K2 

FD2 

= ( Y ( 3 ) 

- Y (1)  ) * C2 

CALCULATE 

EXCITATION  FORCE 

FI  = 0.0D0 

CALCULATE  EQUATIONS  OF  INTEGRATION 

YPRIME ( 1)  = -(  FS1  + FD1  - FS2  - FD2  ) / Ml 
YPRIME ( 2 ) = Y ( 1) 

YPRIME  (3)  = FI  - ( FS2  + FD2  ) / M2 
YPRIME (4)  = Y(3) 

DEFINE  SECONDARY  VARIABLES 

VAR(5) =FS1 
VAR ( 6 ) =FD1 

ADDITIONAL  CALL  TO  SUBROUTINE  VDATA 

CALL  VDATA 

RETURN 

END 
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c *************************************************************** 

* 


SUBROUTINE  NAME:  MODEL 

PURPOSE:  8 DOF  NON-LINEAR  MODEL  BASED  ON  SYSTEMS 
TECHNOLOGY  INC.  ROLL  OVER  MODEL 


CALLED  BY  SUBROUTINE:  FCN 
LAST  REVISION  - 12/18/87 


BY  - ANDRZEJ  G.  NALECZ 
ALAN  BINDEMANN 


C * 

C * 

C * 

C * 

C * 

C * 

C * 

C * 

C * 

C * 

c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 

c *************************************************************** 

c 


CALLING  SEQUENCE: 

CALL  MODEL (N, X, Y , YPRIME , VAR) 
ARGUMENTS : 

INPUT:  COMMON  BLOCKS  VOAT,  AND  SECP 
OUTPUT:  INTEGRATION  ARGUMENTS  D(l-16) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SUBROUTINE  MODEL (N,X,Y, YPRIME , VAR , FLG1) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


COMMON/VDAT/ 

A, 

L, 

TRW, 

HU, 

KZ, 

BZ, 

! CF, 

BD, 

KD1 , 

KD2  , 

MU, 

HR, 

Kl, 

K2  , 

! B1 , 

B2  , 

IX, 

IY, 

IZ, 

HS, 

IU, 

WHLDEF , 

! KV, 

POINT1 , 

POINT2 , 

MS, 

IS, 

TIRAD, 

HCURB , 

s, 

S KB, 

SPRLEN, 

ABSDEF, 

BB, 

YO 

INTEGER*4  N 


REAL* 8 G,MS,MU,IS,IU,XX,IY,IZ,YPRIME(20)  ,Y(20)  ,ZT(4)  ,ZTD(4)  , 
ROLLT ( 4 ) , KZ , K1 , K2 , KV , KB , VAR (50)  , ALFA ( 4 ) ,FY(4)  ,FZ(4)  , 
L, KD1 , KD2 , MIMTWF , MINTWR , CBETA (4) , DST ( 4 ) 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CC  CC 

CC  (1)  ASSIGN  INITIAL  VALUE":  CC 

CC  (2)  UPDATED  PARA  SENT  BACK  TO  MODEL:  CC 

CC  CC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


CALL  VDATA 
C 

c CALCULATE  INITIAL  VARIABLES  (FIRST  MODEL  EVALUATION  ONLY) 
C 

IF  (ICHK.EQ.O)  THEN 
CRIT=DATAN ( -TRW/2 . ODO/Y (10) ) 

MINTWF=TRW/2 . 0D0 
MIMTWR=TRW/ 2 . 0D0 
TRWF=TRW/2 . QDQ 
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TRWR=TRW/2 . ODO 
TWF=TRW/2 .ODO 
TWR=TRW/2 .ODO 
G=3  2 . 2 DO 
ICHK=1 
END  IF 
C 

C CHECK  FOR  ROLLOVER 

C 

IF  (FLG1.EQ. l.ODO)  THEN 
IF  (DABS (Y(ll) ) . GT.CRIT)  THEN 
WRITE (5,*)  ' CRIT= ' , CRIT 

WRITE ( 5 , * ) ' Y ( 11) = ' , Y ( 11) 

WRITE (5,*)  'SPRUNG  MASS  ROLL  ANGLE  GREATER  THAN  45  DEGREES' 
WRITE (5,*)  'ROLLOVER  ASSUMED' 

STOP 
END  IF 
END  IF 
C 

B=L-A 

C 

0*  -k  -k  * * * * ★ * * ★ * * ★ * * * * ■*  * * * * * * * * * * * * * * * * * * * * * * * * * * * ★ -k  * * * * * ★ * * ★ 

c*****  CALCULATE  COLLISION  FORCE  OF  TIRE  AGAINST  CURB  ***** 

Q-kk  *****************************************************  ^** 

C 

C CALCULATE  CRUSH  DISTANCE  IN  Y DIRECTION 

C 

YF=YO~Y ( 12 ) +A*SIN ( Y ( 16 ) ) -TRW/2 . ODO*DCOS (Y ( 16) ) 

YR—YQ-Y ( 12 ) -B*SIN ( Y ( 16 ) ) -TRW/ 2 . 0 DO  * DCOS ( Y ( 1 6 ) ) 

C 

C CALCULATE  RATE  OF  DEFORMATION 

C 

YFO=-Y ( 4 ) +A*Y ( 8 ) *DCOS (Y(16) )+TRW/2 . ODO*Y (8) *DSIN(Y (16) ) 
YRD=-Y(4) -B*Y(8) *DCOS(Y(16) ) +TRW/2 . ODO*Y ( 8 ) *DSIN(Y(16) ) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C CALCULATE  THE  FRONT  DEFORMATION  FORCE 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C SET  DAMPING  TERM  TO  ONE 
ABD=1 . 0 

C IF  CRUSH  DISTANCE  IN  Y DIRECTION  IS  POSITIVE  (I.E.  NO  CONTACT  MADE)  T 
C SKIP  TO  51  WHERE  STIFFNESS  AND  DAMPING  FORCES  ARE  SET  TO  ZERO 

IF  (YF.GE.O.O)  GOTO  51 

C ELSE  CALCULATE  THE  ACUTAL  CRUSH  DISTANCE  AND  DEFORMATION  FORCE 
C 

C CALCULATE  DISTANCE  FROM  CENTER  LINE  OF  CAR  TO  CRUSHED  WHEEL  CENTER 
TRWF= ( YO-Y ( 12 ) +A*DSIN ( Y ( 16) ) )/DCOS (Y(16) ) 
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C CACLULATE  DEFORMATION 


DFF=TRW/2 . QDO-TRWF 

C IF  THE  CALCULATED  DEFORMATION  IS  LESS  THAN  A PREVIOUSLY  CALCULATED  DE 
C THEN  SKIP  TO  52 

IF  (DFF.LT.DFFMAX)  GOTO  52 

C ELSE  RESET  NEW  MAXIMUM  DEFORMATION  AND  CALCULATE  DEFORMATION  FORCE 
DFFMAX=DFF 

C IF  DEFORMATION  IS  GREATER  THAN  CRUSH  PARAMETER  POINT1  THEN  GOTO  53  TO 
C DETERMINE  THE  ELASTIC  CRUSH  FORCE 

IF  ( DFF . GT . POINT1 ) GOTO  53 

C ELSE  CALCULATE  THE  DEFORMATION  FORCE  USING  FIRST  REGION  OF 
C THE  DEFORMATION/ FORCE  RELATIONSHIP  (I.E.  F=K1*D) 

DFFF=KD1* DABS (DFF) 

GOTO  54 

C IF  DEFORMATION  IS  GREATER  THAN  CRUSH  PARAMETER  POINT2  THEN  GOTO  55  TO 
C DETERMINE  THE  ELASTIC  CRUSH  FORCE 

53  IF  ( DFF  . GT . POINT2 ) GOTO  55 

C ELSE  CALCULATE  THE  DEFORMATINO  FORCE  USING  THE  SECOND  REGION  OF 
C THE  DEFORMATION/ FORCE  RELATIONSHIP  (I.E.  F=Kl*POINTl=CONST=WHLDEF) 

DFFF-WHLDEF 
GOTO  54 

C IF  THE  DEFORMATION  DISTANCE  IS  GREATER  THAN  THE  DEFORMATION  PARAMETER 
C POINT2  THEN  CALCULATE  THE  ELASTIC  DEFORMATION  FORCE  FROM  THE  THIRD 
C REGION  OF  THE  DEFORMATION  FORCE  RELATIONSHIP  (I.E.  F=WHLDEF+K2* (D-POI 

55  DFFF=KD2*DABS  (DFF)  -t-WHLDEF~KD2*PQINT2 

GOTO  54 

C IF  NO  DEFORMATION  PRESENT  SET  FRONT  DEFORMATION  FORCES  EQUAL  TO  ZERO 
C SKIP  TO  FORCE  CALCULATION  LINE  56 

51  DFFF—O . 0D0 

ABD=0 „ 0D0 
GOTO  56 

C ************************************************************ 

C * THIS  SECTION  USED  IF  DEFORMATION  DISTANCE  IS  LESS  THAN  A * 

C * PREVIOUS  MAXIMUM  * 

C*** ************************************************ ********** 

IF  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  LESS  THAN  DEFORMA 
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C PARAMETER  P0INT2  THEN  GOTO  57 


52  IF  (DFFMAX.LT. POINT2)  GOTO  57 

C OTHERWISE  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  GREATER  TH 
C DEFORMATION  PARAMETER  POINT2  AND  THE  DEFORMATION  FORCE  IS  CALCULATED 
C THE  RELATIONSHIP  F=WHLDEF+K2* (D-POINT2 ) , THE  PROGRAM  THEN  GOES  TO  58 
C INSURE  THAT  ANY  NEGATIVE  DEFORMATION  FORCES  ARE  SET  EQUAL  TO  ZERO 

DFFF=KD2*DABS (DFF) +WHLDEF-KD2 *POINT2 
GOTO  58 

C IF  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  LESS  THAN  DEFORMA 
C PARAMETER  POINT  1 THEN  GOTO  59 

57  IF  (DFFMAX.LT. POINT1)  GOTO  59 

C OTHERWISE  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  GREATER  TH 
C DEFORMATION  PARAMETER  POINT1  (AND  POINT  2 SINCE  THE  TEST  WAS  ABOVE)  A 
C DEFORMATION  FORCE  IS  CALCULATED  USING  THE  RELATIONSHIP  F=WHLDEF-D*K1 , 
C PROGRAM  THEN  GOES  TO  58  TO  INSURE  THAT  ANY  NEGATIVE  DEFORMATION  FORCE 
C SET  EQUAL  TO  ZERO 

OFFF=WHLDEF-KBl*OABS  (DFFMAX-DFF) 

GOTO  58 

C IF  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  LESS  THAN  POINT1 
C CALCULATE  THE  DEFORMATION  FORCE  USING  THE  RELATIONSHIP  F=K1*D  AND  CHE 
C INSURE  THAT  ANY  NEGATIVE  DEFORMATION  FORCES  ARE  SET  EQAUL  TO  ZERO 

59  DFFF-KD1*DABS (DFF) 

58  IF  (DFFF.LT.O.ODO)  THEN 
DFFF-0 . 0D0 

ABO=0 . 0D0 
END  IF 

C IF  THE  DISTANCE  FROM  THE  CENTER  OF  THE  VEHICLE  TO  THE  CRUSHED  WHEEL  C 
C IS  GREATER  THAN  THE  PREVIOUSLY  CALCULATED  MINIMUM  TRACK  WIDTH  THEN  GO 

54  IF  ( TRWF . GT . MINTWF ) GOTO  60 

MINTWF=TRWF 

60  TRWF=MINTWF 

56  TWF=MINTWF 

C CALCULATE  THE  FRONT  DEFORMATION  FORCE  WITH  DAMPING  INCLUDED 
FDF=DFFF-ABD*BD*YFD 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C CALCULATE  THE  REAR  DEFORMATION  FORCE  C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C SET  DAMPING  TERM  TO  ONE 


ABD=1 . 0 
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C IF  CRUSH  DISTANCE  IN  Y DIRECTION  IS  POSITIVE  (I.E.  NO  CONTACT  MADE)  T 
C SKIP  TO  61  WHERE  STIFFNESS  AND  DAMPING  FORCES  ARE  SET  TO  ZERO 

IF  (YR.GE.O.O)  GOTO  61 

C ELSE  CALCULATE  THE  ACUTAL  CRUSH  DISTANCE  AND  DEFORMATION  FORCE 
C 

C CALCULATE  DISTANCE  FROM  CENTER  LINE  OF  CAR  TO  CRUSHED  WHEEL  CENTER 
TRWR=(Y0-Y(12) -B*DSIN (Y ( 16) ) ) /DCOS(Y(16) ) 

DFR=TRW/2 . ODO-TRWR 

C IF  THE  CALCULATED  DEFORMATION  IS  LESS  THAN  A PREVIOUSLY  CALCULATED  DE 
C THEN  SKIP  TO  62 

IF  ( DFR . LT . DFRMAX ) GOTO  62 

C ELSE  RESET  NEW  MAXIMUM  DEFORMATION  AND  CALCULATE  DEFORMATION  FORCE 

DFRMAX—DFR 

C WRITE ( 5 s 616)  X , Y ( 4 ) , TRWF , DFFMAX , TRWR , DFRMAX 

C616  FORMAT (IX, 6 (F7. 4, IX) ) 

C IF  DEFORMATION  IS  GREATER  THAN  CRUSH  PARAMETER  POINT1  THEN  GOTO  63  TO 
C DETERMINE  THE  ELASTIC  CRUSH  FORCE 

IF  ( DFR o GT . POINT1 ) GOTO  63 

C ELSE  CALCULATE  THE  DEFORMATION  FORCE  USING  FIRST  REGION  OF 
C THE  DEFORMATION/ FORCE  RELATIONSHIP  (I.E.  F=K1*D) 

DFFR=KDX*DABS (DFR) 

GOTO  64 

C IF  DEFORMATION  IS  GREATER  THAN  CRUSH  PARAMETER  POINT2  THEN  GOTO  65  TO 
C DETERMINE  THE  ELASTIC  CRUSH  FORCE 

63  IF  ( DFR . GT . POINT2 ) GOTO  65 

C ELSE  CALCULATE  THE  DEFORMATION  FORCE  USING  THE  SECOND  REGION  OF 
C THE  DEFORMATION/ FORCE  RELATIONSHIP  (I.E.  F=Kl*POXNTl=CONST=WHLDEF) 

DFFR=WHLOEF 
GOTO  64 

C IF  THE  DEFORMATION  DISTANCE  IS  GREATER  THAN  THE  DEFORMATION  PARAMETER 
C POINT2  THEN  CALCULATE  THE  ELASTIC  DEFORMATION  FORCE  FROM  THE  THIRD 
C REGION  OF  THE  DEFORMATION  FORCE  RELATIONSHIP  (I.E.  F=WHLDEF+K2 * (D-POI 

65  DFFR=KD2*DABS (DFR) +WHLDEF-KD2  *POINT2 

GOTO  64 

C IF  NO  DEFORMATION  PRESENT  SET  REAR  DEFORMATION  FORCES  EQUAL  TO  ZERO  A 
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C SKIP  TO  FORCE  CALCULATION  LINE  66 


61  DFFR=Q . 0D0 

ABD=0 . 0D0 
GOTO  66 


Q ************************************************************ 

C * THIS  SECTION  USED  IF  DEFORMATION  DISTANCE  IS  LESS  THAN  A * 

C * PREVIOUS  MAXIMUM  * 

C************************************************************* 

c 

C IF  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  LESS  THAN  DEFORMA 
C PARAMETER  POINT2  THEN  GOTO  67 

62  IF  (DFRMAX.LT. POINT2)  GOTO  67 

C OTHERWISE  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  GREATER  TH 
C DEFORMATION  PARAMETER  POINT2  AND  THE  DEFORMATION  FORCE  IS  CALCULATED 
C THE  RELATIONSHIP  F=WHLDEF+K2 * ( D-POINT2 ) , THE  PROGRAM  THEN  GOES  TO  68 
C INSURE  THAT  ANY  NEGATIVE  DEFORMATION  FORCES  ARE  SET  EQUAL  TO  ZERO 

DFFR=KD2* DABS (DFR) +WBLBEF~KD2*POINT2 
GOTO  68 

C IF  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  LESS  THAN  DEFORMA 
C PARAMETER  POINT  1 THEN  GOTO  69 

67  IF  (DFRMAX.LT. POINT1)  GOTO  69 

C OTHERWISE  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  GREATER  TH 
C DEFORMATION  PARAMETER  POINT1  (AND  POINT  2 SINCE  THE  TEST  WAS  ABOVE)  A 
C DEFORMATION  FORCE  IS  CALCULATED  USING  THE  RELATIONSHIP  F-WHLDEF“=D*K1 , 
C PROGRAM  THEN  GOES  TO  68  TO  INSURE  THAT  ANY  NEGATIVE  DEFORMATION  FORCE 
C SET  EQUAL  TO  ZERO 

DFFR“WHLDEF-KD1*DABS ( DFRMAX-BFR) 

GOTO  68 

C IF  THE  PREVIOUSLY  CALCULATED  MAXIMUM  DEFORMATION  IS  LESS  THAN  POINT1 
C CALCULATE  THE  DEFORMATION  FORCE  USING  THE  RELATIONSHIP  F=K1*D  AND  CHE 
C INSURE  THAT  ANY  NEGATIVE  DEFORMATION  FORCES  ARE  SET  EQAUL  TO  ZERO 

69  DFFR=KD1* DABS (DFR) 

68  IF  (DFFR.LT. 0. 0D0)  THEN 
OFFR=Q . 0D0 

ABD=0 . 0D0 
END  IF 

C IF  THE  DISTANCE  FROM  THE  CENTER  OF  THE  VEHICLE  TO  THE  CRUSHED  WHEEL  C 
C IS  GREATER  THAN  THE  PREVIOUSLY  CALCULATED  MINIMUM  TRACK  WIDTH  THEN  GO 

64  IF  ( TRWR . GT . MINTWR ) GOTO  70 

MINTWR=TRWR 
7 0 TRWR=M I NTWR 

66  TWR=MINTWR 
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C CALCULATE  THE  REAR  DEFORMATION  FORCE  WITH  DAMPING  INCLUDED 
FDR=DFFR-ABD*BD*YRD 

C CALCULATE  BUMP  STOP  DELFLECTION  AND  HRC 


BSDEF— SPRLEN-MS*G/Kl/2 . 0D0 
HRC=HR”HU 
C 

c************************************ 

C*****  CALCULATE  SPRING  FORCES  ****** 
'C************************************ 

c 

DELZ=Y(13) -Y(10) 

DELZD=Y(5) -Y (2 ) 

DELY~Y ( 9 ) -Y ( 12 ) 

DELYD=Y ( 1) “Y ( 4 ) 

CALCULATE  RIGHT  AND  LEFT  SPRING  LENGTHS 

SL= (DSQRT (DELZ**2+DELY**2 ) +HU) /DCOS ( Y ( 11) -Y ( 14 ) ) -HS+ 
1 S * DTAN ( Y (11) “Y ( 14 ) ) 

SR— (DSQRT (OELZ**2+DELY**2 ) +HU) /DCOS ( Y ( 11) -Y(14) ) “HS- 
! S*DTAN (Y ( 11) -Y ( 14 ) ) 

CALCULATE  RIGHT  AND  LEFT  SPRING  COMPRESSIONS 

SDI>SPRLEN“SL 
S OR=  S PRLEN “SR 


CALCULATE  RIGHT  AND  LEFT  RATE  OF  SPRING  COMPRESSION 


C 


c 


c 

c 


c 


c 


IF  ( DELZ  a EQ  e 0 . 0 . AND . DELY . EQ . 0 . 0 ) THEN 

SOLD— -(Y(3) -Y(6) ) * (S+ (DSQRT (DELZ** 2 + DELY**2 ) +HU) * 

DSIN ( Y ( 11) ”Y ( 14 ) ) ) /DCOS (Y ( 11) -Y ( 14 ) ) **2 

SDRD=" (Y ( 3 ) -Y (6) ) * (-S+ (DSQRT (DELZ* *2+DELY* *2 ) +HU) * 

DSIN ( Y ( 11) -Y ( 14 ) ) ) /DCOS (Y ( 11) -Y(14) ) **2 

ELSE 

SDLD—*"  (DELZ*DELZD+DELY*DELYD)  /DCOS  (Y(ll)  -Y(14)  ) 

/DSQRT (DELZ**2+DELY**2) — (Y ( 3 ) — Y (6) ) * 

(S+ (DSQRT (DELZ **2+DELY* *2 ) +HU) *DSIN(Y (11) -Y (14) ) ) 

/DCOS ( Y ( 11) -Y ( 14 ) ) **2 

SDRD=~( DELZ *DELZD-f DELY*OELYD) /DCOS  (Y(ll)  -Y(14)  ) 

/DSQRT  (DELZ**2-S-DELY**2)  — (Y  (3  ) — Y (6)  ) * 

( “S+ (DSQRT ( DELZ**2+DELY**2 ) +HU) *DSIN(Y(11) -Y(14) ) ) 

/DCOS (Y( 11) -Y ( 14 ) ) **2 

END  IF 
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CALCULATE  BUMP  STOP  SIZE 

BSS=SPRLEN~MS*G/Kl/2 . ODO-ABSDEF 

CALCULATE  LEFT  HAND  BUMP  STOP  COMPRESSION  AND  RATE  OF  COMPRESSION 

IF  (BSS.GT.SL)  THEN 

BDL=BSS”SL 

BDLD=SDLD 

ELSE 

BDL=0 . 0 

BDLD=0 . 0 

END  IF 

CALCULATE  RIGHT  HAND  BUMP  STOP  COMPRESSION  AND  RATE  OF  COMPRESSION 

IF  ( BSS . GT » SR)  THEN 

BBR=BSS-SR 

BDRD“SDRD 

ELSE 

BOR=0 . 0 

BDRD=0 . 0 

END  IF 

CALCULATE  COMBINED  SPRING  AND  BUMP  STOP  FORCE  (INCLUDING  DAMPING)  FOR 
RIGHT  AND  LEFT  HAND  SIDES 

FSL=K1*SDL+BI*SDLD+K2*BDL+B2*BDLD 
FSR=K1 * S DR+B 1 * S DRD+K2  * BDR+B2 * BDRD 

************************************************ 

*****  CALCULATE  LATERAL  RETAINING  FORCE  FI  ***** 
************************************************ 

CALCULATE  LATERAL  BUSHING  DEFLECTION  AND  RATE  OF  DEFLECTION 

DEF=DELY*DCOS(Y(ll) ) -DELZ*DSIN (Y ( 11) ) -HRC*DSIN ( Y ( 14 ) -Y ( 11) ) 

DEFD~DELYO*DCOS (Y ( 11) ) -DELZD*DSIN ( Y ( 11) ) - Y ( 3 ) * ( DELY * DS IN ( Y ( 1 1 ) ) 

« DELZ*DCOS ( Y ( 11) ) ) -HRC* (Y (6) -Y (3 ) ) *DCOS (Y(14) -Y(ll) ) 

CALCULATE  LATERAL  RESTRAINING  FORCE 

F1=KB*DEF+BB*DEFD 

**************************************************** 

*****  CALCULATE  NORMAL  AND  LATERAL  TIRE  FORCES  ***** 
**************************************************** 

CALCULATE  4 TIRE  DEFORMATIONS 

ZT (1)=(Y(13) "TRW*Q . 5DQ*DSIN ( Y ( 14 ) ) )/DCOS(Y(14) ) +HU-A*DTAN ( Y ( 15) 
ZT ( 2 ) = ( Y ( 13 ) +TRWF*DSIN ( Y ( 14 ) ) )/DCOS(Y(14) ) +HU”A*DTAN (Y ( 15) ) 
ZT(3)=(Y (13) ~TRW*0 . 5D0*DSIN ( Y ( 14 ) ) ) /DCOS (Y(14) ) +HU+B*DTAN ( Y ( 15 ) 
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ZT(4)=(Y(13)+TRWR*DSIN(Y(14) ) )/DCOS (Y(14) ) +HU+B*DTAN ( Y (15) ) 


CALCULATE  4 RATES  OF  TIRE  DEFORMATION 

ZTD ( 1) =Y (5) /DCOS ( Y ( 14 ) ) -Y (6) * (TRW/2 . 0D0-Y(13) *DSIN(Y(14) ) ) 

I /DCOS  (Y  (14)  ) **2-"A*Y  (7)  /DCOS  (Y  (15)  ) **2 

ZTD (2) =Y (5) /DCOS (Y (14) ) +Y ( 6 ) * (TKWF+Y ( 13 ) *DSIN ( Y ( 14 ) ) ) 
i /DCOS (Y( 14) ) **2“A*Y (7) /DCOS (Y (15) ) **2 

ZTD ( 3 ) =Y ( 5) /DCOS ( Y ( 14 ) ) -Y(6) * (TRW/2 . ODO-Y ( 13 ) *DSIN ( Y ( 14 ) ) ) 

! /DCOS (Y( 14) ) **2+B*Y(7)/DCOS(Y(15) ) **2 

ZTD ( 4 ) =Y ( 5 ) /DCOS ( Y ( 14 ) ) +Y ( 6 ) * (TRWR+Y ( 13 ) *DSIN(Y(14) ) ) 

! /DCOS (Y (14) ) **2+B*Y(7)/DCOS (Y(15) ) **2 

CALCULATE  ANGLE  BETWEEN  CONTACT  POINT  AND  UNSPRUNG  MASS  CG  POSITION 

DO  2 1=1,4 

2 ALFA (I) =DATAN (2 . QDQ* (HU+ZT(X) ) /TRW) 

CALCULATE  ROLL  TERM 


DST (1)=HU+ DABS (ZT(1) ) 

DST ( 2 ) =HU+DABS ( ZT ( 2 ) ) 

DST ( 3 ) =KU+DABS ( ZT ( 3 ) ) 

DST ( 4 ) =HU+OABS ( ZT ( 4 ) ) 

CBETA ( 1) =DCOS (3.14 159D0/2 . QBQ-DABS ( Y ( 14 ) ) - 
! DAT AN ( ( HU+OABS ( ZT ( 1 ) ) ) / (TKW*0 . 5D0) ) ) 

ROLLT ( 1 ) =DSQRT ( DST ( 1 ) **2  + (TRW/2 . 0D0 ) **2 ) *CBETA ( 1) 

CBETA ( 2 ) =DCQS (3. 14159 DO/2. 0 DO “DABS ( Y ( 14 ) ) - 
i OATAM( (HU+DABS (ZT(2) ) )/TRWF) ) 

ROLLT (2 ) =DSQRT (DST ( 2 ) **2+TRWF**2 ) *CBETA ( 2 ) 

CBETA ( 3 ) =DCOS ( 3 . 14159D0/2 . QOO-DABS ( Y ( 14 ) ) - 
! DATAN ( (HU+DABS (ZT (3) ) ) / (TRW*0 . 5D0 ) ) ) 

ROLLT ( 3 ) =DSQRT (DST (3 ) **2+ (TRW/ 2 . 0D0 ) **2 ) *CBETA ( 3 ) 

CBETA (4 ) =DCOS ( 3 . 14 153D0/2 . QOO-OABS ( Y ( 14 ) ) - 
! DATAN ( (HU+DA3S (ZT(4) ) )/TRWR) ) 

ROLLT ( 4 ) =DSQRT ( DST ( 4 ) **2+TRWR**2) *CBETA(4) 

CALCULATE  NORMAL  TIRE  REACTIONS 


DO  6 1=1,4 

FZ(X)=KZ*(TXRAD+ZT(I) )+BZ*ZTD(I) 

IF  (FZ (I) .LE.O.O)  THEN 

FZ (X)=0.O 

END  IF 

CONTINUE 
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CALCULATE  LEFT  AND  RIGHT  TOTAL  NORMAL  TIRE  REACTIONS 

FZL=FZ (1) +FZ (3) 

FZR=FZ (2) +FZ (4) 

CALCULATE  LATERAL  TIRE  REACTIONS 

DO  8 1=1,4 

IF  (I.LE.2)  THEN 

V=Y ( 4 ) +A*Y ( 8 ) -Y ( 6 ) *ROLLT ( I ) 

ELSE 

V=Y ( 4 ) ™B*Y ( 8 ) - Y ( 6 ) *ROLLT ( I ) 

END  IF 

WRITE (5,*)  ' V= ' , V 

IF  (Vo  GT . ”KV . AND . V . LT . KV)  THEN 

FY(I)=CF*FZ (I) *V/KV 

ELSE  IF  (V.LE.-KV)  THEN 

FY (I) =-CF*FZ (I) 

ELSE  IF  (V.GE.KV)  THEN 
FY (I) =CF*FZ (I) 

END  IF 

8 CONTINUE 


CALCULATE  LEFT  AND  RIGHT  TOTAL  LATERAL  TIRE  REACTIONS 

FYL=FY ( 1 ) +FY ( 3 ) 

FYR=FY ( 2 ) +FY ( 4 ) 

CALCULATE  THE  INTEGRATION  ARGUMENTS 

YPRIME (1) =1 . O/MS* ( (FSL+FSR) *DSIN(Y(11) ) -Fl*DCOS (Y ( 11) ) ) 

Y PRIME ( 2 ) =G” 1 . O/MS  * ( (FSL+FSR) *DCOS(Y(ll) ) +F1*DSIN (Y ( 11) ) ) 

YPRIME (3) =1.0/IS*( (FSL-FSR) *S+F1*SQRT( (OELY-HR*SIN (Y ( 11) ) ) **2  + 
! (OELZ-=HR*CQS  (Y  ( 11)  ) ) **2 ) ) 

YPRIME (4) =1. O/MU* (FI *DCOS (Y(1X) ) - 
! (FSL+FSR) *DSIN (Y ( 11) ) "FYR-FYL^FDF-FDR) 

YPRIME (5) =G+1. O/MU* ( (FSL+FSR) *DCOS(Y(ll) )+ 

! F1*DSIN ( Y ( 11) ) -FZL-FZR) 

TERM1= (FSR-FSL) *S*DCOS (Y(ll) -Y(14) ) 

FREDLF= (HU+DABS (ZT ( 1) ) ) *DSIN(Y(14) ) 

FREDRF= ( HU+DABS ( ZT ( 2 ) ) ) *DSIN(Y(14) ) 

FREDLR= (HU+DABS (ZT (3) ) ) *DSIN(Y(14) ) 

FREDRR= (HU+DABS (ZT (4) ) ) *DSIN(Y(14) ) 

TERM3=FZ ( 1) * (TRW*DCOS ( Y ( 14 ) ) /2 . ODO+FREDLF) + 

! FZ (3) * (TRW*DCOS (Y(14) ) /2 . ODO+FREDLR) 

TERM4=FZ (2) * (TWF*DCOS (Y(14) ) -FREDRF) + 
i FZ (4) * (TWR*DCOS (Y(14) ) -FREDRR) 

TERM5=FYL*Y ( 13 ) 
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TERM6=FYR*Y ( 13 ) 

TERM7=HRC*F1*C0S ( Y ( 11) -Y(14)  ) 

TERM9=FDF* (-Y ( 13 ) -HCURB) +FDR* ( -Y ( 13 ) -HCURB) 

Y PRIME ( 6 ) = ( TERM1+TERM3 -TERM4 -TERMS -TERM6+TERM7+TERM9 ) / IU 

YPRIME (7) =1 . O/XY* ( (IZ-IX) *Y (8) *Y(3) - 
! B* (FZ (3) +FZ (4) ) +A* (FZ ( 1) +FZ ( 2 ) ) ) 

YPRIME ( 8 ) =1 . O/IZ* ( - ( FY ( 1 ) +FY ( 2 ) +FDF) *A+ ( FY ( 3 ) +FY ( 4 ) +FDR) *B+ 

! Y(3) *Y(7) *(IX-IY) ) 

YPRIME (9)  =Y ( 1) 

YPRIME ( 10) =Y (2) 

YPRIME (11) =Y (3) 

YPRIME ( 12 ) =Y ( 4 ) 

YPRIME (13) =Y ( 5 ) 

YPRIME ( 14 ) =Y ( 6 ) 

YPRIME (15) =Y (7) 

YPRIME (16) =Y (8) 

C 

C SET  VARIABLE  VALUES  EQUAL  TO  VALUES  CALCULATED  BY  SUBROUTINE 

C MODEL 

C 

VAR ( 17 ) =V 

VAR ( 18 ) “FZL 

VAR ( 19 ) —YPRIME ( 3 ) 

VAR (20) -YPRIME (6) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
CC  CC 

CC  UPDATED  SEC.  PARA  SENT  TO  DGEAR:  CC 

CC  CC 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C 

CALL  VDATA 
C 

RETURN 

END 
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APPENDIX  B 


STEADY  STATE  SENSITIVITY  FLOWCHAR 


B— 1 


c *************************************************************** 

* 


c * 
c * 
c * 
c * 
c * 

c *************************************************************** 


C COPYRIGHT  DECEMBER  1987  BY 
THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , 
A PUBLIC  CORPORATION 


* 

* 

* 

* 


MAIN  PROGRAM  - STEDY . FOR 

PURPOSE  - CALCULATE  SENSITIVITY  FUNCTIONS  OF  A STEADY 
VEHICLE  MODEL 


LAST  REVISED  - 12/18/87 


BY  - ANDRZEJ  G.  NALECZ 
ALAN  BINDEMANN 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

C *************************************************************** 
PROGRAM  STEDY 


C * 

c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 
c * 


REQUIRES  SUBROUTINES  - SSMODEL. FOR 

INPUT 2 . FOR 
VDATA . FOR 
DRVT . FOR 

IMSL  ROUTINE  - ZSPOW.OBJ 

REQUIRES  DATA  - SUPPLIED  FROM  ROUTINES  INPUT2 . FOR  & 

VDATA „ FOR 


IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON/ PARA/  PRM(IOO) 

COMMON / P ARA2 / PRM2(1GQ) 

COMMON/ SIZE/NP, NPN , ND , I ISV ( 2 0 ) 

INTEGER* 4 N, NSXG, ITMAX, IER, K 
REAL* 8 PAR(3) ,X(3) ,WK(36) ,XS(3) 
EXTERNAL  SSFCN 


DIMENSION  DVDP1L(5Q, 50) , DVDP1 ( 50 , 50) , DVDP2 (50,50) ,DLV(50,5Q) 

1 ,IDVDP1(50) ,SPAR(50) ,PER(50  ) , V ( 5 0 , 5 0 , 7 ) , VAR (50) 

2 ,SPRM2(50,7) f SXS ( 50 ) ,Y(7) ,PX(7) ,SORT(4,50) 

CHARACTER* 12 , OFILNM, PFILNM 


CC  INPUT  DATA: 


CALL  INPUT2  ( N , NS IG , ITMA.X , X , NSV , IM , PERT , 

I DR#  DP, DFj IPLQT, OFILNM, PFILNM) 

CC  SAVE  THE  INITIAL  SPECIFICATIONS: 


CALL  VDATA 
DO  1 1=1, NP 
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PER ( I ) =PERT 


IF  (IP.EQ.O) 

SPAR ( I ) =PRM ( I ) 

1 CONTINUE 

DO  2 1=1, N 

2 XS(I)  =X(I) 

ITMAXS=ITMAX 

CC  TOTAL  NUMBERS  FOR  INCREMENT : 

IF  ((DP  . GT . 0. DO) .AND. (DR  .GT.Q.DO)  ) THEN 
NIN=JIDNNT ( DR/DP) 

ELSE 
NIN=1 
END  IF 

ccccccccccccccccccccccccccccccccccccccccccccccccccccc 

OPEN (UNIT=6 , FILE=OFILNM, STATUS= ' UNKNOWN  ' ) 

IF  ( I PLOT . EQ . 1 ) THEN 

OPEN (UNIT=1 , FILE=PFILNM, STATUS= ' UNKNOWN  9 ) 
WRITE (1,7)  NP 
WRITE (1,7)  ND 
WRITE (1,7)  NIN 
7 FORMAT (IX, 12) 

END  IF 

CCCCCCCCCCCC  STARTING  DP  INCREMENT  CCCCCCCCCCCC 


K=1 

IF  ( I PLOT «,  EQ . 1)  THEN 
WRITE (1,405)  DP*K 
END  IF 

405  FORMAT ( IX , E 12 . 5 ) 

80  CONTINUE 

WRITE (5,*)  'STEER  ANGLE ' , DP* DFLOTJ (K) 

CC  HARD  COPY  TITLE  FORMAT  OUTPUT: 

IF  (PAR( 1) /OF  .EQ.  DFLOTJ (NINT (PAR ( 1) /DF) ) ) THEN 
WRITE  ( 6 , * ) 5 ————————————— 

1- ————————— ! 

END  IF 

CCCCCCCCC  STARTING  PARAMETER  INCREMENT  CCCCCCCCC 


IP=1 


90  CONTINUE 

IF  (IP . GT . NP-NPN)  THEN 
IDGFLG=0 
ELSE 

IDGFLG=1 
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END  IF 


CCCCCCCCC  INM=1 : CALCULATE  V(T,P)  CCCCCCCCCCCCCCCCCCC 


INM=1 


DO  100  1=1 f NP 
100  PRM(I) =SPAR(I) 

IF  (K.EQ.l)  THEN 
ITMAX=ITMAXS 
DO  102  1=1, N 

102  X(I)  =XS (I) 

ELSE 

DO  104  1=1, N 

104  X (I) =V (I , IP, INM) 

END  IF 

PAR ( 1 ) =DFLQTJ ( K) *DP 

CALL  ZSPOW  ( SSFCN , NSIG , N , XTMAX , PAR. , X , FNORM , WK,  IER) 

DO  106  1=1, N 

V(I , IP, INM) =X (I) 

106  VAR ( I ) =X ( I ) 

CALL  SSMQDEL(F,X,VAR, PAR, FLG1) 

DO  108  I=N+1 , NSV 
108  V(I, IP, INM)=VAR(I) 

CC  SAVE  THE  SECONDARY  PARA  VALUES: 

DO  1=1 , NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

DO  1=1, N 

SXS (I) =X(X) 

END  DO 

CCCCCCCCC  INM=2:  CALCULATE  V(T,P~OP)  CCCCCCCCCCCCCCCCCCC 


INM=2 


DO  110  1=1 , NP 
110  PRM(I) =SPAR(I) 

PRM ( IP) =SPAR (IP) “SPAR ( IP) *PER(IP) 

IF  (XOGFLG.EQ. 0)  THEN 

CALL  SSMODEL ( F , X , VAR , PAR , FLG1 ) 
DO  118  I=N+1 , NSV 
118  V(I, IP, INM) = VAR (I) 

END  IF 

IF  (K.EQ.l)  THEN 
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112 


ITMAX=ITMAXS 
DO  112  1=1, N 
X ( I ) =XS ( I ) 

ELSE 

DO  114  1=1, M 
114  X(I) =V (I , IP, INM) 

END  IF 

PAR ( 1 ) =DFLOTJ ( K) *DP 

CALL  ZSPOW ( SSFCN , NSIG , N, XTMAX , PAR , X , FNORM , WK , IER) 

DO  116  1=1, N 

V(I , IP, INM) =X (I) 

116  VAR ( I ) =X ( I ) 

CALL  SSMODEL(F, X, VAR, PAR, FLG1) 

IF  (IDGFLG.EQ. 1)  THEN 
DO  117  I=N+1 , NSV 

117  V ( I , IP , INM) =VAR ( I ) 

END  IF 

DO  1=1, NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

CCCCCCCCC  XNM=3:  CALCULATE  V(T,P-2.*OP)  CCCCCCCCCCCCCCCCCCC 


INM=3 


IF  ( (IM.EQ.15) .OR. (IM.EQ.17) ) THEN 

DO  120  1=1, NP 
12  0 PRM ( I ) =S  PAR ( I ) 

PRM (IP) =S  PAR (IP) -SPAR ( IP) *2 . DQ*PER ( IP) 

IF  (IDGFLG.EQ. 0)  THEN 
DO  121  1=1, N 

121  X(I) =SXS (I) 

CALL  SSMODEL(F, X, VAR, PAR, FLG1) 

DO  122  I=N+1 , NSV 

122  V ( I , IP, INM) =VAR ( I ) 

END  IF 


IF  (K.EQ.l)  THEN 

ITMAX= I TMAXS 

DO  124  1=1, N 

124 

X ( I ) =XS (I) 

ELSE 

DO  126  1=1, N 

126 

X(I) =V(I, IP, INM) 

END  IF 

PAR (1) =DFLOTJ (K) *DP 

CALL  ZSPOW (SSFCN, NSIG, N, ITMAX, PAR, X, FNORM, WK, IER) 
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128 


DO  128  1=1, N 

V ( I , IP, INM) =X ( I ) 

VAR (I) =X(I) 

CALL  SSMODEL ( F , X , VAR , PAR , FLG1 ) 

IF  (IDGFLG.EQ. 1)  THEN 
DO  129  I=N+1,NSV 
129  V ( I , IP , INM) =VAR ( I ) 

END  IF 

DO  1=1, NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

END  IF 

CCCCCCCCC  INM=4 : CALCULATE  V (T , P-3 . *DP)  CCCCCCCCCCCCCCCCCCC 


XMM=4 


IF  (IM.EQ.17)  THEN 

DO  130  1=1, NP 

130  PRM { I ) =S PAR ( I ) 

PRM ( IP) =SPAR ( IP) -SPAR (IP) *3 . D0*PER ( IP) 

IF  (IDGFLG.EQ, 0)  THEN 
DO  131  1=1, N 

131  X(I)=SXS(X) 

CALL  SSMODEL ( F , X , VAR , PAR , F , GX ) 

DO  132  I=N+1,NSV 

132  V ( I , IP , INM) =VAR ( I ) 

END  IF 


IF  (K.EQ.l)  THEN 

XTMAX=XTMAXS 
DO  134  1=1, N 

134 

X(X)  =XS(I) 

ELSE 

DO  136  1=1, N 

136 

X (I)  =V (I , IP,  INM) 

END  IF 

PAR ( 1 ) ™DFLOTJ ( K) *OP 

CALL  Z S PO W ( SSFCN , NSIG , N , I TMAX , PAR , X , FNORM , WK , I ER ) 

DO  138  1=1, N 

V(X, IP, INM) =X (I) 

138  VAR (I) =X(I) 

CALL  SSMODEL(F, X, VAR, PAR, FLG1) 

IF  (IDGFLG.EQ. 1)  THEN 
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139 


DO  139  I=N+1,NSV 
V(I,IP,INM)=VAR(I) 

END  IF 

DO  1=1 , NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

END  IF 

CCCCCCCCC  INM=5:  CALCULATE  V(T,P+DP)  CCCCCCCCCCCCCCCCCCC 

INM=5 

DO  140  1=1, NP 

140  PRM ( I ) =S  PAR  ( I ) 

PRM (IP) =SPAR (IP) +SPAR (IP) *PER(IP) 

IF  (IDGFLG.EQ.O)  THEN 
DO  141  1=1 ,N 

141  X(I)=SXS(I) 

CALL  SSMQDEL(F,X,VAR,PAR,FLG1) 

DO  142  I=N+1 , NSV 

142  V ( I , IP , INM) =VAR ( I ) 

END  IF 


IF  (K.EQ.l)  THEN 

ITMAX=ITMAXS 
DO  144  1=1, N 

144 

X ( I ) =XS(I) 

ELSE 

DO  146  1=1, N 

146 

X ( I ) =V ( I , IP, INM) 

END  IF 

PAR  ( 1 ) =DFLOTJ (K) *DP 

CALL  ZSPOW (SSFCN, NSIG,N, ITMAX, PAR, X, FNORM, WK, IER) 

DO  148  1=1, N 

V(I , IP, INM) =X (I) 

148  VAR (I) =X (I) 

CALL  SSMODEL(F, X, VAR, PAR, FLG1) 

IF  (IDGFLG.EQ. 1)  THEN 
DO  149  I=N+1,NSV 

149  V(I , IP, INM) =VAR(I) 

END  IF 

DO  1=1, NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

CCCCCCCCC  INM=6:  CALCULATE  V (T, P+2 . *DP)  CCCCCCCCCCCCCCCCCCC 
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XNM=6 


IF  ( (IM.EQ. 15) .OR. (IM.EQ. 17) ) THEN 

DO  150  1=1, NP 

150  PRM ( I ) =S  PAR ( I ) 

PRM(IP) =SPAR (IP) +SPAR (IP) *2 . D0*PER ( IP) 

IF  (IDGFLG.EQ. 0)  THEN 
DO  151  1=1, N 

151  X(X)=SXS(I) 

CALL  SSMODEL ( F , X , VAR , PAR , FLG1 ) 

DO  152  I=N+1 , NSV 

152  V ( I , IP , INM) =VAR ( I ) 

END  IF 


IF  (K.EQ.l)  THEN 

ITMAX=XTMAXS 
DO  154  1=1, N 

154 

X ( I ) =XS(X) 

ELSE 

DO  156  1=1, N 

156 

X ( I ) =V ( I , I P , INM ) 

END  IF 

PAR ( 1 ) =DFLOT J ( K ) *OP 

CALL  ZSPOW ( SSFCN , NSIG , N , ITMAX , PAR , X , FNORM, WK, IER) 

DO  158  1=1, N 

V(I , IP, INM) =X (I) 

158  VAR (I) =X (I) 

CALL  SSMODEL(F, X, VAR, PAR, FLG1) 

IF  (IDGFLG.EQ. 1)  THEN 
DO  159  X=N+1 , NSV 

159  V ( I , IP , INM) =VAR ( I ) 

END  IF 

DO  1=1, NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

END  IF 

CCCCCCCCC  XMM=7:  CALCULATE  V(T,P+3.*DP)  CCCCCCCCCCCCCCCCCCC 


INM=7 


IF  (XM.EQ. 17)  THEN 


160 


DO  160  1=1, NP 
PRM  ( I ) =S  PAR  ( I ) 

PRM ( IP) =SPAR (IP) +SPAR ( IP) *3 . D0*PER ( IP) 
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161 


IF  (IDGFLG.EQ. 0)  THEN 
DO  161  1=1, N 
X(I)=SXS(I) 

CALL  SSMODEL ( F , X , VAR , PAR, FLG1 ) 
DO  162  I=N+1 , NSV 
162  V(I, IP, INM)=VAR(I) 


END  IF 

IF  (K.EQ.l)  THEN 

ITMAX=ITMAXS 

DO  164  1=1, N 

164 

X(I)  =XS (I) 

ELSE 

DO  166  1=1, N 

166 

X(I) =V (I , IP, 

END  IF 

PAR  ( 1 ) =DFLOTJ ( K) *DP 

CALL  ZSPOW (SSFCN, NSIG, N , ITMAX, PAR, X, FNORM, WK, IER) 

DO  168  1=1, N 

V(I, IP, INM) =X (I) 

168  VAR (I) =X (I) 

CALL  SSMODEL (F, X, VAR, PAR, FLG1) 

IF  (IDGFLG. EQ. 1)  THEN 
DO  169  I=N+ 1 , NSV 

169  V(I , IP, INM) =VAR(I) 

END  IF 

DO  1=1, NPN 

SPRM2 ( I , INM) =PRM2 ( I ) 

END  DO 

END  IF 

CCCCCCC  STARTING  STATE  VARIABLE  INCREMENT  CCCCCCCC 


111=1 

ISV=IISV(III) 

170  CONTINUE 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

IF  (IP.GT. (NP-NPN)  ) THEN 
SP=SPRM2 (IP+NPN-NP, 1) 

ELSE 
SP=1 . DO 
END  IF 

C IF  PARAMETER  IS  SECONDARY  AND  VARIABLE  IS  PRIMARY  THEN  CALCULATE 
C THE  DERIVATIVES  USING  POLYNOMIAL  FIT 

IF  ( IP . GT . NP-NPN . AND . ISV . LE . N)  THEN 
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NDP=XM-1Q 


Y(1)=V(ISV#IP, 1) 

Y ( 2 ) =V ( ISV , IP , 2 ) 

Y(3)=V(ISV,IP, 5) 

Y(4)=V(ISV,XP,3) 

Y(5)=V(ISV,XP,6) 

Y (6) =V { XSV , IP , 4 ) 

Y(7)=V(ISV, IP,7) 

PX ( 1 ) =SPRM2 ( IP+NPN-NP , 1 ) 

PX ( 2 ) =SPRM2 ( XP+NPN-NP , 2 ) 

PX ( 3 ) =SPRM2 ( XP+NPN-MP , 5 ) 

PX(4)=SPRM2 (IP+NPN-NP, 3) 

PX (5) =SPRM2 (IP+NPN-NP,  6) 

PX ( 6 ) =S  PRM2 ( I P+NPN-NP , 4 ) 

PX ( 7 ) =SPRM2 ( IP+NPN-NP , 7 ) 

IF  ( (Y(3)-Y(2) ) .EQ.O.ODO)  THEN 

DLV(XSV, XP)=0»  ODO 

ELSE 

DLV ( ISV, IP)=(Y(3) "Y ( 2 ) ) / (PX ( 3 ) -PX ( 2 ) ) *PERT*PX(1) 

END  IF 

CALL  DRVT (NDP , PX , Y , PX ( X ) , DV1 , DV2 ) 

DVDP1 (XSV, IP) =DVX 
DVDP2 (ISV,XP)=DV2 

IF  (BVBPX(XSV, IP) *SP. EQ.O.ODO)  THEN 

OVDPXL(ISV,XP)=Q.QDQ 

ELSE 

DVOPXL(XSV, IP) =OVDPX (XSV, IP) *SP/V(ISV, IP, 1) 

END  IF 

ELSE 

CC  CENTRAL  BIFF.  TO  CALCULATE  THE  DERIVATIVE: 

IF  (IM.EQ.13  ) THEN 

IF  ( (V (ISV, IP, 2 ) -V ( ISV, IP, 5) ) .EQ.O.DO)  THEN 
DVDP1 (ISV, IP) =0 . 0D0 
ELSE 

DVDP1  (ISV,  IP)  = (-V (ISV,  IP,  2)  +V (ISV,  IP,  5)  ) 

1 / (SPAR(IP) *2 . 0D0*PER(IP) *SP) 

END  IF 

IF  ( (V (ISV, IP, 2) -2 . D0*V (ISV, IP, 1) +V (ISV, IP, 5) ) .EQ.O.DO)  THEN 
DVDP2 (ISV, IP) =0. 000 
ELSE 

DVDP2 ( ISV, IP) = ( V (ISV, IP, 2) -2 . DQ*V (ISV, IP, X)+V(ISV, IP, 5) ) 

1 /( ( (SPAR (IP) *PER ( IP) ) **2 ) *SP**2 ) 

END  IF 

IF  (DVDP1(ISV, IP) *SPAR(IP) *SP. EQ.O.ODO)  THEN 
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DVDP1L ( ISV, IP) =0 . 0D0 
ELSE 

DVDP1L ( ISV , IP) =DVDP1 (ISV, IP) *SPAR(IP) *SP/V(ISV, IP, 1) 

END  IF 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
ELSE  IF  (IM.EQ.15  ) THEN 

Al=(  V(ISV, IP, 3) -8. 0D0*V(ISV, IP, 2) +8. 0D0*V(ISV, IP, 5) 

1 -V ( ISV , IP , 6 ) ) 

IF  (A1.EQ.0.0D0)  THEN 
DVDP1 ( ISV, IP) =0 . ODO 
ELSE 

DVDP1 (ISV, IP) =A1/ (SPAR (IP) * 1 . 2D1*PER ( IP) *SP) 

END  IF 

Al= ( “V ( ISV , IP , 3 ) +1 . 6D1*V ( ISV, IP , 2 ) -3 . 0D1*  V(ISV,IP,1) 

1 +1 . 6D1*V (ISV, IP, 5) - V (ISV, IP, 6) ) 

IF  (Al.EQ.O.ODO)  THEN 
DVDP2 ( ISV, IP) =0 . ODO 
ELSE 

DVDP2 ( ISV, IP) =A1/ ( (1.2D1* (SPAR (IP) * PER (IP) ) **2) *SP**2) 
END  IF 

IF  ( DVDP1 ( ISV, IP) *SPAR (IP) *SP . EQ . 0 . ODO ) THEN 

DVDP1L ( ISV, IP) =0 . ODO 

ELSE 

DVDP1L ( ISV, IP) =DVDP1 ( ISV, IP) *SPAR(IP) *SP/V (ISV, IP, 1) 

END  IF 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


ELSE  IF  (IM.EQ.17  ) THEN 

Al=  ( -V ( ISV, IP, 4 ) +9 . 0DQ*V ( ISV, IP, 3 ) 

1 “4 . 5D1*V (ISV, IP, 2) +4 . 5D1*V (ISV, IP, 5) 

1 ™9 . ODQ*V ( ISV, IP, 6) + V (ISV, IP, 7) ) 

IF  (Al.EQ.O.ODO)  THEN 
DVDP1 ( ISV, IP) =0 . ODO 
ELSE 

DVDP1 ( ISV, IP)  =A1/ (SPAR (IP  ) *6 . 0D1*PER ( IP  ) *SP) 

END  IF 


1 

1 

1 


Al=  ( 2 . QD0*V (ISV , IP , 4 ) -2 . 7D1*V ( ISV, IP , 3 ) 

+2 . 7D2*V (ISV, IP, 2) ”4 . 9D2 *V ( ISV , IP , 1) 

+2 . 7D2*V (ISV, IP, 5) -2 .7D1*V(ISV, IP, 6) 

+2 . ODQ*V ( ISV, IP, 7 ) ) 

IF  (Al.EQ.O.ODO)  THEN 
DVDP2 (ISV, IP) =0 . ODO 
ELSE 

DVDP2 (ISV, IP) =A1/ ( (1. 8D2* (SPAR (IP  ) *PER(IP) ) **2) *SP**2) 
END  IF 
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IF  (DVDP1 (ISV, IP) *SPAR(IP) *SP . EQ . 0 . ODO ) THEN 

DVDP1L ( ISV, IP) =0. ODO 

ELSE 

DVDP1L(ISV, IP) =DVDP1 ( ISV, IP) *SPAR(IP) *SP/V(ISV, IP, 1) 
END  IF 

END  IF 
END  IF 

DLV(ISV,  IP)  = (V  (ISV,  IP,  5)  -V  (ISV,  IP,  2)  )/2.0D0 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

IF  (III . LT.ND)  THEN 

1X1=111+1 

ISV=IISV(III) 

GO  TO  170 
END  IF 

CCCCCCCCC  END  OF  STATE  VARIABLE  INCREMENT  CCCCCCCCCCCC 

CC  HARD  COPY  TITLE  FORMAT  OUTPUT: 

IF  (IP.LT.NP)  THEN 
XP=IP+1 

IF  (IP. GT . NP-NPN)  THEN 
IDGFLG=0 
ELSE 

IDGFLG=1 
END  IF 
GO  TO  90 
END  IF 

CCCCCCCCCCC  END  OF  PARAMETER  INCREMENT  CCCCCCCCCCCCCCC 


1X1=1 

270  CONTINUE 

ISV=IISV(XIX) 

IF  (PAR ( 1) /DF  .EQ.  DFLOTJ (NINT (PAR ( 1) /DF) ) ) THEN 
WRITE (6, *) 

WRITE  ( 6 , *)  8 ——————————————— 

WRITE (6,274)  ISV , V ( ISV, 1 , 1 ) 

WRITE  (6,  *) 

274  FORMAT (IX, "VARIABLE  V = 8 , 12 , 8 , FUNCTION  VALUE  =',E13.6) 

WRITE(6, 272) 

WRITE (6,273) 

272  FORMAT ( 15X, 8 1 5 , IX, 

1 8 2 8 , IX, 

2 8 3 8 ,1X, 
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3 


4') 


273 

1 

2 

3 


1 

275 

280 


CC 

CC  SORT 
CC 


286 


301 


9 


FORMAT ( IX , * STEER 1 , 2X  f ' IP  8 , 4X , 


DV-1  8 ,1X, 

OVDP-1  ' , IX, 

LDVDP-1  8,1X, 

DVDP-2 8 ) 


DO  280  IP=1 , NP 

WRITE (6,275)  PAR(l) , IP, DLV(ISV, IP) , DVDP1 (ISV, IP) , 
0V0P1L(ISV, IP) , DVDP2 (ISV, IP) 

FORMAT ( IX ,F5.3,2X,I2,2X,4(E18.6, IX) ) 

CONTINUE 
WRITE (6 , *) 


THE  EFFECT  ORDER  OF  ALL  PARAMETERS  TO  ONE  STATE  VARIABLE 

DO  287  JJ=1 , 4 
IF  (JJ.EQ.l)  THEN 
DO  J=1 , NP 

SORT ( JJ,J)=OLV (ISV, J) 

END  DO 

ELSE  IF  ( JJ . EQ . 2 ) THEN 
DO  J=1 , NP 

SORT ( J J , J ) =OVOPl ( ISV , J ) 

END  DO 

ELSE  IF  (JJ.EQ.3)  THEN 
DO  J— 1 , NP 

SORT (JJ, J) =DV0P1L( ISV, J) 

END  DO 

ELSE  IF  (JJ.EQ.4)  THEN 
DO  J=1 , NP 

SQRT(JJ, J)=DVDP2 (ISV, J) 

END  DO 
END  IF 

DO  286  1=1 , NP 
IDVDP1 (I) =1 

DO  312  J=2 , NP 
AO=DABS (SORT ( JJ , J) ) 

IA=IOVOPX (J) 

DO  301  I=J-1,1,-1 

IF  ( DABS (SORT ( JJ , I) ) . LE  e AD)  THEN 

SORT ( JJ , X+l) =DABS (SORT (JJ, I) ) 

IDVDP1 (1+1) =IDVDP1 (I) 

ELSE 

GO  TO  310 
END  IF 
CONTINUE 


1=0 

SORT ( JJ , 1+1 ) =AD 
IDVDP1 ( 1+1) =IA 


310 
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312 


CONTINUE 


WRITE (6, 314)  (JJ, (IDVDP1 (I) , 1=1, NP) ) 
314  FORMAT ( IX , ' PARAMETER  EFFECT  ORDER  (' 

287  CONTINUE 


,11, 


) : ' , IX ,20(12, IX) ) 


END  IF 

cccccccccccccccccccccccccccccccccccccccccccccc 


cc 

cc 

cc 

cc 

cc 


CALCULATE  THE  SENSIVITY  MEASUREMENT  : 
GENERAL  INFLUENCE  OF  PARAMETER 
VECTOR  ON  ONE  STATE  VARIABLE, 


CC 

cc 

cc 

cc 

cc 


cccccccccccccccccccccccccccccccccccccccccccccc 

SMPAV1=0 . DO 
SMPAV2—0 . DO 
3MPAV3=0 . DO 
SMPAV4”0 . DO 


316 


276 

281 


DO  316  1=1, NP 

SMPAV1=SMPAV1+DVDP1 (ISV, I) **2 
SMPAV2=5MPAV2+DLV ( ISV, I ) **2 
SMPAV3=SMPAV3+DVDP1L ( ISV , I) **2 
SMPAV4=SMPAV44-DVDP2  (ISV,  I)  **2 

SMPAV1=DSQRT ( SMPAV1 ) 

SMPAV2=DSQRT ( SMPAV2 ) 

SMPAV3=DSQRT (SMPAV3 ) 

SMPAV4=D5QRT (SMPAV4 ) 

IF  (PAR ( 1) /DF  .EQ.  DFLOTJ (NINT (PAR ( 1 ) /DF) ) ) THEN 

WRITE (6,*) 


WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(1)  : 

ALL 

P 

ON 

ONE 

V=  ' , SMPAV2 

WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(2)  : 

ALL 

P 

ON 

ONE 

V=  ' , SMPAV1 

WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(3)  : 

ALL 

P 

ON 

ONE 

V=  ' , SMPAV3 

WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(4)  : 

ALL 

P 

ON 

ONE 

V=  ' , SMPAV4 

END  IF 

IF  (IPLOT.EQ.l)  THEN 

WRITE (1,7)  ISV 

WRITE (1,405)  V(ISV,1,1) 

DO  281  IP=1,NP 

WRITE (1,276)  DLV (ISV, IP) , DVDP1 (ISV, IP) , 

DVDP2 ( ISV, IP) , DVDP1L ( ISV, IP) 
FORMAT  ( IX,  4 (E.12 . 5 , 2X)  ) 

CONTINUE 


WRITE (1,318)  SMPAV2 


B~14 


WRITE (1,318)  SMPAV1 
WRITE (1,318)  SMPAV3 
WRITE (1,318)  SMPAV4 
318  FORMAT (1X,E12.5) 

END  IF 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

IF  (III.LT.ND)  THEN 
111=111+1 
GO  TO  270 
END  IF 

400  CONTINUE 

IF  (K.LT.NIN)  THEN 
K=K+X 

IF  ( I PLOT . EQ . 1 ) THEN 
WRITE (1,405)  DP*DFLOTJ (K) 

END  IF 
GO  TO  80 
END  IF 

CLOSE (UNIT=6) 

IF  ( I PLOT . EQ . 1 ) THEN 
CLOSE (UNIT-1) 

END  IF 

CCCCCCCCCCCCCCC  END  OF  STEERING  INCREMENT  CCCCCCCCCCCCCCCC 

STOP 

END 

SUBROUTINE  SSFCN (X, F, N, PAR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

INTEGER*4  N, FLG1 

REAL* 8 X(10) ,F(10) ,PAR(10) ,VAR(50) 

CALL  SSM0DEL(F, X, VAR, PAR, FLG1) 

RETURN 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 


*************************************************************** 
* * 

* C COPYRIGHT  DECEMBER  1987  BY  * 

* THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 

* A PUBLIC  CORPORATION  * 

* * 
*************************************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SUBROUTINE  - INPUT2 . FOR 

INPUT  SIMULATION  DATA  FROM  FILE  OR  ALLOW  USER  TO  ENTER 

LAST  UPDATE  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ 

ALAN  BINDEMANN 

REQUIRES  SUBROUTINES  - NONE 

PROGRAM  INPUT  - TYPED  IN  BY  USER  OR  READ  IN  BY  USER 

GENERATED  DATA  FILE 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*************************************************************** 


SUBROUTINE  INPUT2 ( N , NS IG , ITMAX , X , NS V , IM , PERT , 

DR, DP, OF, IPLOT, OFILNM, PFILNM) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER* 1 , QUERY 
CHARACTER* 12 , FN , OFILNM, PFILNM 
REAL* 8 X (20) 


WRITE (5 , 101) 

101  FORMAT (//, IX, 'SENSITIVITY  ANALYSIS  OF  STEADY  STATE  MODELS8/) 

WRITE ( 5 , 102 ) 

102  FORMAT (IX, 9 C COPYRIGHT  DECEMBER  1987  BY') 

WRITE ( 5 , 103 ) 

103  FORMAT (IX, 9 THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,') 

WRITE (5,104) 

104  FORMAT ( IX , 9 A PUBLIC  CORPORATION9) 

WRITE (5,1) 

1 FORMAT ( // , XX , 9 * * * Data  Entry  ***',/) 

WRITE (5,2) 

2 FORMAT ( IX , 9 1 . ) Enter  From  Keyboard  9 ) 

WRITE (5, 3) 

3 FORMAT (IX, 9 2. ) Read  From  File',/) 

ACCEPT  *,IX 

IF (II . EQ. 1)  THEN 
GOTO  27 
END  IF 
WRITE (5, 4) 

4 FORMAT ( IX , 9 Input  .Filename  9 ) 

ACCEPT  5 , FN 

5 FORMAT (A1 2) 

OPEN (UNIT— 1 , FILE=FN , STATUS=  9 OLD 9 ) 
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86 


READ ( 1 , * ) N 
READ ( 1 , * ) NSIG 
READ ( 1 , * ) ITMAX 
DO  86  1=1, N 
READ ( 1 , * ) X(I) 

READ (lf*)  NSV 
READ ( 1 , * ) IM 
READ ( 1 , * ) PERT 
READ ( 1 , * ) DR 
READ ( 1 , * ) DP 
READ ( 1 , * ) DF 
READ ( 1 , * ) I PLOT 
READ (1,5)  OFILNM 
READ (1,5)  PFILNM 
CLOSE (UNIT=1) 

RETURN 

27  WRITE (5, 10) 

10  FORMAT (//, IX, ' Input  Number  of  Equations  to  Solve') 

ACCEPT  *,N 
WRITE (5,15) 

15  FORMAT (//) 

WRITE (5,17) 

17  FORMAT (IX, 'Initial  Solution  Estimate’,/) 

DO  16  1=1, N 
X (I) =0 . 0D0 
WRITE (5, 18)  I 

18  FORMAT (IX, ' X ( ' , I 2 , 1 ) = 0.QD0*) 

16  CONTINUE 
WRITE (5, 19) 

19  FORMAT (/, IX, ' Do  you  wish  to  change  these  parameters  (Y/N)') 
ACCEPT  120, QUERY 

IF (QUERY . EQ . 9 Y ' . OR . QUERY . EQ . ' y 8 ) THEN 
WRITE (5, 15) 

DO  20  1=1, N 
WRITE (5, 30)  I 

30  FORMAT ( IX, ' Input  X(!,I2,')  (Double  Precision,  i.e.  0.0D0)') 

ACCEPT  *,X(I) 

20  CONTINUE 


END  IF 


NSIG=4 

ITMAX=200 


55 


50 


WRITE(5, 50) 

FORMAT ( IX, //,' ****  Data  Required  By  IMSL  Routine  ZSPOW  ****',/) 
WRITE(5, 55) 

FORMAT (IX, 'Default  Values',/) 


80 


90 


WRITE (5,80)  NSIG 
FORMAT (IX,  'NSIG  = * ,11) 
WRITE (5, 90)  ITMAX 
FORMAT (IX, ' ITMAX= ' , 13 ,/) 
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110 

120 

150 

160 

190 

195 

213 

240 

242 

244 

246 

248 

250 

252 

254 

256 

259 


WRITE ( 5 , 110) 

FORMAT (IX, ' Do  you  wish  to  change  any  of  these  parameters  (Y/N) ' 
ACCEPT  120, QUERY 
FORMAT (Al) 

IF  ( QUERY . EQ . ' Y ' . OR „ QUERY . EQ . ' y ' ) THEN 
WRITE(5, 150) 

FORMAT (/, IX, ' Input  NS IG  (Integer)®) 

ACCEPT  190 , NSIG 
WRITE(5, 160) 

FORMAT ( IX, ' Input  ITMAX  (Integer)') 

ACCEPT  195, ITMAX 
FORMAT (12) 

FORMAT (14) 

END  IF 

WRITE (5, 213) 

FORMAT (// , IX , ' Input  the  Number  of  State  Variables',/) 

ACCEPT* , NSV 


IM=13 

PERT=X. 0D-2 


Program  Parameters  ***',/) 


***',/) 

Points ' ) 


WRITE(5, 240) 

FORMAT (IX,  8 *** 

WRXTE(5, 242) 

FORMAT ( IX, ® Derivative  Method  - Central  Difference  With  3 Points 
WRXTE(5, 244) 

FORMAT ( IX , 8 Percent  used  in  Central  Difference  - 1 . 0D-2 ' ,/) 

WRITE (5,246) 

FORMAT ( IX , ® Do  You  Wish  to  Change  These  Parameters  (Y/N) ' ) 

ACCEPT  120, QUERY 

IF  ( QUERY  * EQ . 9 Y 8 . OR . QUERY .EQ.  8 y 8 ) THEN 
WRITE (5, 15) 

WRITE (5,248) 

FORMAT (IX, 9 ***  Derivative  Methods 
WRITE(5, 250) 

FORMAT (IX, ' 1. ) Central  Difference  w/  3 
WRITE(5, 252) 

FORMAT ( IX , ' 2 . ) 

WRITE (5,254) 

FORMAT ( IX , 9 3 . ) 

WRITE (5,256) 

FORMAT ( IX, ' Input  the  Number  of  Your  Choice') 

ACCEPT  259,11 
FORMAT (II) 

IF (II . EQ . 1)  THEN 
IM=13 
END  IF 

IF (II . EQ. 2)  THEN 
XM=15 
END  IF 

XF(I1.EQ. 3)  THEN 
IM=17 
END  IF 


Central  Difference  w/  5 
Central  Difference  w/  7 


Points ' ) 
Points ' ,/) 


B-18 


WRXTE(5, 258) 

258  FORMAT (/, IX, ' Specify  % Used  in  Central  Difference') 

ACCEPT* , PERT 

END  IF 

WRITE (5, 15) 

WRITE (5,268) 

268  FORMAT ( IX, ' ***  Final  Steer  Angle  and  Steer  Increment  ***',/) 

WRITE (5,270) 

270  FORMAT ( IX, ' Input  Total  Steering  Angle  in  Degrees 

! (Double  Precision)') 

ACCEPT* , DR 
WRITE (5,272) 

272  FORMAT ( IX, ' Input  Output  Steering  Increment  in  Degrees 
! (Double  Precision)') 

ACCEPT* , DF 
WRITE(5, 302) 

302  FORMAT ( IX, ' Input  Filename  For  Output  Data') 

ACCEPT  5 , OFILNM 
WRITE(5, 273) 

273  FORMAT (IX, 'Would  You  Like  the  Program  to  Create  a Plotting 
i Output  File  (Y/N)') 

ACCEPT  120, QUERY 

IF  ( QUERY . EQ . ' Y ' . OR . QUERY . EQ . ' y ' ) THEN 

XPLQT=1 

WRITE(5, 284) 

284  FORMAT ( IX, 

! 'Input  Steer  Increment  for  Plotting  Data  (Double  Precision)') 
ACCEPT*, DP 
WRITE (5,304) 

304  FORMAT (IX, ' Input  Filename  For  Plotting  Data') 

ACCEPT  5 , PFILNM 

ELSE 

IPLOT=Q 

DP=DF 

END  IF 

WRITE(5, 15) 

WRITE (5,274) 

274  FORMAT ( IX, ' Do  You  Want  to  Store  This  Data  in  a File  (Y/N)') 
ACCEPT  120, QUERY 

IF (QUERY. EQ. ' Y' . OR. QUERY . EQ . 'y ' ) THEN 
WRITE (5, *) 

WRITE (5,276) 

276  FORMAT ( IX, 'What  Filename  Do  You  Wish  to  Give  the  Input  Data') 
ACCEPT  280, FN 
280  FORMAT (A12) 

OPEN (UNIT=1 , FILE=FN , STATUS = ' NEW ' ) 

WRITE (1,*)  N 
WRITE (1,*)  NSIG 
WRITE (1,*)  ITMAX 
DO  88  1=1, N 
WRITE ( 1 , * ) X(I) 
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88  CONTINUE 

WRITE ( 1 , * ) NSV 
WRITE ( 1 , * ) IM 
WRITE (1,*)  PERT 
WRITE ( 1 , * ) DR 
WRITE (1,*)  DP 
WRITE (1,*)  DF 
WRITE (1,*)  I PLOT 
WRITE (1,285)  OFILNM 
WRITE (1,285)  PFILNM 
285  FORMAT ( IX , A12 ) 

CLOSE (UNIT=1) 

END  IF 

RETURN 

END 
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o o o o 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*************************************************************** 


* 

* 

* 

* 

* 


C COPYRIGHT  DECEMBER  1987  BY 
THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , 
A PUBLIC  CORPORATION 


* 

* 

* 

* 

* 


*************************************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SUBROUTINE  - VDATA . FOR 

PURPOSE  - READ  IN  VEHICLE  PARAMETERS , DETERMINE  ACTIVE 
PARAMETERS , AND  DETERMINE  ACTIVE  VARIABLES. 
RETURNS  THE  PARAMETER  VALUES  TO  SENSITIVITY 
PROGRAM  ON  SUBSEQUENT  CALLS 


LAST  UPDATE  - 12/18/87 


BY  - ANDRZEJ  G.  NALECZ 
ALAN  BINDEMANN 


REQUIRES  SUBROUTINES  - NONE 

REQUIRES  DATA  - INPUT  FROM  DATA  FILE  VDAT.DAT 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


****************************************************************** 


SUBROUTINE  VDATA 


C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

REAL* 8 DAT (100) , PRM(IOO) , SEC (100) , PRM2 (100) 

INTEGER*4  IFLAG(IQQ) , NP# NO, INDX ( 100) ,INDX2(100) ,IISV(20) 
CHARACTER*  3 5 , VD ( 1 0 0 ) 

COMMON/ VDAT/ DAT 
COMMON/ PARA/ PRM 
COMMON/ PARA 2 / PRM2 
COMMON/ SECP/S EC 
CQMMON/SIZE/NP,NPN,NO, IISV 
C 

C IF  INITIAL  CALL  TO  VDATA  THEN  READ  IN  PARAMETERS,  DETERMINE  ACTIVE 
C PRIMARY  AND  SECONDARY  PARAMETERS,  AS  WELL  AS  ACTIVE  PRIMARY  AND 
C SECONDARY  VARIABLES 
C 


c 


IF  (NFLG.EQ.O)  THEN 


NFLG=1 


OPEN  VEHICLE  DATA  FILE  (THIS  IS  THE  SAME  FILE  AS  USED 
IN  THE  TRANSIENT  SENSITIVITY  MODEL  MODEL. FOR) 

OPEN (UNIT=1,FILE= ’VDAT.DAT'  , STATUS= s OLD  8 ) 

C 

C READ  IN  PRIMARY  PARAMETER  FLAG,  PARAMETER  DESCRIPTION  AND 
C PARAMTER  VALUES,  AS  WELL  AS  VARIABLE  FLAG,  VARIABLE  DESCRIPTION 
C AND  A DUMMY  VARIABLE  VALUE  OF  0 . 0 
C 

DO  10  1=1,100 

READ ( 1 , * ) IFLAG(I) ,VD(I) , DAT(I) 


B-21 


non  oooo  o o o non  oooo 


IF  (VD(X) .EQ. 'ENDOV' ) THEN 


NDI=I-1 
GOTO  15 
END  IF 
CONTINUE 
CONTINUE 


! TOTAL  # OF  LINES  READ 


10 

15 


SCAN  DATA  TO  DETERMINE  # OF  PRIMARY  PARAMETERS  AND 
# OF  SECONDARY  PARAMETERS 


20 


DO  20  1=1 , NDI 

IF  ( VD ( I ) . EQ . ’ ENDPP " } THEN 

NPP=I-1 

END  IF 

IF  (VD (I)  . EQ.  5 ENDSP ’ ) THEN 

NOPN=X-*NPP-2 

END  IF 

CONTINUE 


1 # OF  PRIMARY  PARAMETERS 


I # OF  SECONDARY  PARAMETERS 


RE-ORDER  LIST  OF  PARAMETER  FLAGS  AND  VARIABLE  FLAGS 

DO  30  I=NPP+2 , NPP+NQPN+1 
J=I-1 

DAT ( J ) =DAT ( T ) 

I FLAG ( J) =IFLAG ( I ) 

VD ( J) =VD ( I ) 

30  CONTINUE 

COUNT  # OF  ACTIVE  PARAMETERS  AND  PLACE  IN  ARRAY  PRM 

DO  40  1=1 , NPP+NOPN 

IF  (IFLAG(I) .EQ.l)  THEN 

11=11+1 

PRM ( II ) =DAT ( I ) 

INDX(II) =1 
END  IF 

40  CONTINUE 

NP=II  ! # OF  TOTAL  ACTIVE  PARA 

COUNT  # OF  ACTIVE  SECONDARY  PARAMETERS 

DO  60  I=NPP+1, NPP+NOPN 

IF  (IFLAG(I) .EQ.l)  THEN 

IIN=IIN+1 

INDX2 (IIN)=I-NPP 

END  IF 

60  CONTINUE 

NPN=IIN  ! # OF  SECONDARY  FLAGED  PARA 

COUNT  NUMBER  OF  ACTIVE  VARIABLES 

DO  70  X=NPP+NOPN+3 , NDI 
IF  (IFLAG(I) .EQ.l)  THEN 
111=111+1 
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non 


70 


IISV(III)=I-NPP-NOPN-2 

END  IF 

CONTINUE 

ND=III 


C 

C 


CLOSE (UNIT=1) 
END  IF 


C ON  SUBSEQUENT  CALLS  TO  VDATA  THIS  SECTION  OF  CODE  IS  USED 

C 

C 

C UPDATED  PARA (FROM  SENSTIVITY  PROGRAM)  SENT  BACK  TO  MODEL: 
C 


DO  80  1=1, NP 
DAT ( INDX ( I ) ) =PRM ( I ) 
80  CONTINUE 


UPDATED  SECONDARY  PARA (FROM  MODEL)  SENT  TO  DGEAR : 


90 

C 


DO  90  IIM=1 , NPN 

PRM2 ( IIM) =SEC ( INDX2 ( IIM) ) 

CONTINUE 

RETURN 

END 
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c *************************************************************** 
c * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

C * A PUBLIC  CORPORATION  * 

C * * 

c *************************************************************** 

c * * 

C * SUBROUTINE  - SSFCN.FOR  * 

C * * 

C * PURPOSE  - FUNCTION  EVALUATION  ROUTINE  REQUIRED  BY  * 

C * IMSL  ROUTINE  ZSPOW  * 

C * * 

C * LAST  UPDATE  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

C * ALAN  BINDEMANN  * 

C * * 

C * REQUIRES  SUBROUTINES  - SSMODEL. FOR  * 

C * * 

C * REQUIRES  DATA  - SEE  IMSL  MANUAL  * 

C * * 

c *************************************************************** 
c 

SUBROUTINE  SSFCN (X, F,N, PAR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

INTEGER*4  N , FLG1 

REAL* 8 X ( 2 ) , F ( 2 ) , PAR ( 1 ) , VAR (50) 

CALL  SSMODEL(F, X, VAR, PAR, FLG1) 

RETURN 

END 
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Q *************************************************************** 

c * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

C * A PUBLIC  CORPORATION  * 

C * * 

Q *************************************************************** 
C * * 

C * SUBROUTINE  - DRVT . FOR  * 

C * * 

C * PURPOSE  - GIVEN  'N'  X,Y  COORDINATES  THIS  PROGRAM  FITS  * 

C * AN  N— 1 ORDER  POLYNOMIAL  THRU  THE  POINTS  USING  * 

C * THE  METHOD  OF  LEAST  SQUARES.  THE  ROUTINE  * 

C * THEN  CALCULATES  THE  1ST  & 2ND  DERIVATIVES  * 

C * OF  THE  POLYNOMIAL  AT  COORDINATE  9 XC ' * 

C * * 

C * LAST  REVISED  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

C * ALAN  BINDEMANN  * 

C * * 

C * REQUIRES  ROUTINES  - GAUSS . FOR  * 

C * * 

C * ARGUMENTS:  N - NUMBER  OF  X,  Y COORDINATES  * 

C * X - AN  N DIMENSIONAL  ARRAY  OF  X-POINTS  * 

C * Y - AN  N DIMENSIONAL  ARRAY  OF  Y-POINTS  * 

C * XC  - DERIVATIVE  EVALUATION  POINT  * 

C * DV1  - FIRST  DERIVATIVE  * 

C * DV2  - SECOND  DERIVATIVE  * 

C * * 

c *************************************************************** 
c 

SUBROUTINE  DRVT (N , X , Y , XC , DV1 , DV2 ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

REAL* 8 X(7) ,Y(7) ,A(7,8) ,C(7) ,C1(7) ,B(7,7) ,D(7) ,E(7) 

INTEGER*4  N,I,J,K 

DV1=Q . 0D0 

DV2=0. 0D0 

DO  1=1, N 

C ( I) =0 . 0D0 

DO  J=1,N+1 

A ( I , J) =0 . 0D0 

END  DO 

END  DO 

DO  1=1, N 

DO  K=1 , N 

A ( I , N-t-1 ) =A  ( I , N+l ) + Y (K)  *X(K)  **(I-1) 

END  DO 
DO  J=1 , N 
DO  K=1 , N 

A (I, J)=A(I, J)+X(K) **(I-1) *X(K) **(J-1) 

END  DO 
END  DO 
END  DO 

CALL  GAUSS (N, A, C) 

DO  1=2, N 

DV1=DV1+C(I) * (1-1) *XC** (1-2) 
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END  DO 
DO  1=3 , N 

DV2=DV2+ (1-2) * (1-1) *C(X) *XC** (1-3) 

END  DO 

RETURN 

END 
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no  noon  on 


c *************************************************************** 

c * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

C * A PUBLIC  CORPORATION  * 

C * * 

Q *************************************************************** 

c * * 

C * SUBROUTINE  - GAUSS. FOR  * 

C * * 

C * PURPOSE  - SOLUTION  OF  SIMULTANEOUS  EQUATIONS  BY  * 

C * GAUSSIAN  ELIMINATION  FOR  SYSTEM  OF  EQUATION  * 

C * OF  THE  FORM  [A] [X]=[B]  * 

C * * 

C * LAST  REVISED  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

C * ALAN  BINDEMANN  * 

C * * 

C * REQUIRES  ROUTINES  - NONE  * 

C * * 

C * SUBROUTINE  ARGUMENTS:  N - NUMBER  OF  EQUATIONS  * 

C * A - N X N MATRIX  * 

C * B - N X 1 MATRIX  * 

C * X - N X 1 SOLUTION  MATRIX  * 

C * * 

Q ***************************************************************** 

c 

SUBROUTINE  GAUSS (N, A, X) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

REAL* 8 A (7, 8) ,X(7) 

M=N+1 
L=N-1 

DO  12  K=1,L 
JJ=K 

BIG=ABS (A (K, K) ) 

KP1=K+1 

SEARCH  FOR  LARGEST  POSSIBLE  PIVOT  ELEMENT 
DO  7 I=KP1 , N 
AB=ABS ( A ( I , K) ) 

IF ( BIG-AB)  6,7,7 

6 BIG=AB 
JJ=I 

7 CONTINUE 

DECISION  ON  NECESSITY  OF  ROW  INTERCHAGE 
IF(JJ-K)  8,10,8 

ROW  INTERCHANGE 

8 DO  9 J=K, M 
TEMP=A ( JJ , J) 

A(JJ, J)=A(K, J) 

9 A (K, J) =TEMP 

CALCULATION  OF  ELEMENTS  OF  NEW  MATRIX 
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no  on 


10 


DO  11  I=KP1,N 
QUOT=A(I,K)/A(K,K) 

DO  11  J=KP1 , M 

11  A ( I , J) =A ( I , J) -QUOT*A (K , J) 

DO  12  I=KP1 , N 

12  A ( I , K)  =0 . 0 

FIRST  STEP  IN  BACK  SUBSTITUTION 
X (N) =A(N, M) /A (N, N) 

REMAINDER  OF  BACK  SUBSTITUTION  PROCESS 
DO  14  NN=1,L 
SUM=0 . 

I=N™NN 

IP1=I+1 

DO  13  J=IP1,N 

13  SUM=SUM+A ( I , J ) *X(J) 

14  X(I)=(A(I,M) -SUM)/A(I,I) 

RETURN 

END 
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non  o o o 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*************************************************************** 
* * 

* C COPYRIGHT  DECEMBER  1987  BY  * 

* THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 

A PUBLIC  CORPORATION 


* A PUBLIC  CORPORATION  * 

* * 
*************************************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SUBROUTINE  NAME:  SSMODEL 

PURPOSE:  TO  CALCULATE  VEHICLE  STEADY  STATE  RESPONSE 

CALLING  SEQUENCE: 

CALL  SSMODEL (F, X, VAR, PAR, FLG1) 

LAST  REVISED  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ 

ALAN  C.  BINDEMANN 

REQUIRES  ROUTINES  - NONE 
ARGUMENTS : 

INPUT:  COMMON  BLOCKS  VDAT , PARA 

X(l)  - LATERAL  VELOCITY  CURRENT  GUESS 
X ( 2 ) - YAW  ANGULAR  VELOCITY  CURRENT  GUESS 
PAR ( 1 ) - STEERING  ANGLE  PASSED  BY  IMSL 

ROUTINE  ZSPOW 

FLG1  - A FLAG  WHICH  PRINTS  INFO  IF  = TO  1 

OUTPUT:  CURRENT  VALUES  OF  F(l)  AND  F(2)  FOR  IMSL 
ROUTINE  ZSPOW 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*************************************************************** 


SUBROUTINE  SSMODEL ( F , X , VAR, PAR , FLG1) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0~Z) 

COMMON  BLOCK  CONTAINING  PRIMARY  PARAMETER  VALUES 


COMMON/VDAT/ 

A, 

AX, 

DF, 

FRCZ , 

GF, 

HS, 

KF, 

KR, 

KTOT, 

L, 

QO, 

Ql, 

RRCZ  , 

TF, 

Al, 

A2  , 

Bl, 

B3  , 

PO, 

PI, 

P2  , 

SN, 

PCA2  , 

PCA3  , 

PCA4  , 

PFY1 , 

PAB2  , 

PAB3  , 

PAB4  , 

PFA1 , 

PMUX2 , 

PMUX3 , 

PMUX4 , 

PMUY1 

PWTR 


B, 

CTOT , 

Dl, 

D2  , 

HUE, 

HUR, HRA 

, ix , 

IZ, 

M, 

MS, 

MUF, 

MUR, 

TR, 

u. 

WD, 

AO, 

B4  , 

CMF , 

CMR, 

ISF, 

DFAC , 

G, 

GC, 

PCA1 , 

PFY2  , 

PFY3  , 

PFY4  , 

PAB1 , 

PFA2  , 

PFA3  , 

PFA4  , 

PMUX1 

PMUY2 , 

PMUY3 , 

PMUY4 , 

PWTF , 

COMMON  BLOCK  CONTAINING  SECONDARY  PARAMETERS 

COMMON/ SECP/CA (4) ,FY(4) ,AA(4) , FFAA ( 4 ) , MUX(4) ,MUY (4) , 
i TFWT , TRWT 
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INTEGER* 4 FLG1 


REAL* 8 

AA, 

A, 

AO, 

Al, 

A2  , 

ACC, 

AF, 

AR, 

AX, 

B, 

Bl, 

B3  , 

B4  , 

CA, 

CFZ (4) , 

CMF , 

CMR, 

CTOT , 

Dl, 

D2  , 

DF, 

F ( 10 ) , 

DFAC , 

FY, 

FCS, 

FCSF, 

FFAA, 

FMX ( 4 ) , 

FMY ( 4 ) , 

FCSR, 

FCUF , 

FCUR, 

FI, 

FRC, 

FRCZ, 

FWTBR, 

FWTRCH , 

FWTUW , 

FX  ( 4 ) , 

FXF , 

FXR, 

FZF , 

FZR, 

FZ  ( 4 ) , 

G, 

GC , GF , 

H, 

HRA, 

HS, 

HUF, 

HUR, 

ISF, 

IX, 

iz, 

KR, 

KF, 

KTOT, 

L, 

M, 

MS, 

MUF, 

MUR, 

MUX, 

MUY, 

PO, 

PI, 

P2, 

Q, 

QO, 

01, 

R, 

RDCL ( 4 ) 

, ROOT , 

ROWDOT , 

RRC, 

RRCZ, 

RWTBR, 

RWTRCH 

RWTUW, 

SMAX ( 4 ) 

,SN, 

TF, 

TFWT, 

TR, 

TRC, 

TRWT, 

TTOT , 

U, 

VDOT, 

WD, 

PAR ( 10 ) 

, DAT , 

X(10) , 

! VAR (50) 

CALL  VDATA 
Dl—PAR (1) /57  . 3 DO 

CALCULATE  THE  CURRENT  DYNAMIC  STATE  OF  THE  VEHICLE 

R=10000 . 0D0 
ACC=0 . 0D0 

IF  (X (2 ) o NE . 0 . 0D0)  THEN 
R = U / X (2 ) 

ACC  = U**2/R 
END  IF 

FAI=-M3/GC*HRA*U*X ( 2 ) / ( KTOT-MS*G/GC*HRA) 

CALCULATE  THE  DYNAMIC  FORCES  AND  WEIGHT  TRANSFER  COMPONENTS 


FCS  = ACC  * MS  / GC  !K1 

TRC  = FCS  * HRA  * DCQS(FAI)  !J1 

FRC  = KF  / KTQT  * TRC  111 

RRC  ” KR  / KTOT  * TRC  ! 14 

FWTBR  - FRC  / TF  !H1-1 

RWTBR  = RRC  / TR  IH2-1 

FCSF  = FCS  * B / L !I2 

FCSR  - FCS  * A / L !I5 

FWTRCH  = FCSF  * FRCZ  / TF  JHX-2 

RWTRCH  = FCSR  * RRCZ  / TR  !H2-2 

FCUF  - ACC  * MUF  / GC  !I3 

FCUR  = ACC  * MUR  / GC  ! 16 

FWTUW  - FCUF  * HUE  / TF  !Hl-3 

RWTUW  « FCUR  * HUR  / TR  IH2-3 

TFWT  = FWTBR  + FWTRCH  + FWTUW  !G1 

TRWT  * RWTBR  + RWTRCH  + RWTUW  !G1 

TFWT=TFWT*PWTF 
TRWT=TRWT  * PWTR 


CALCULATE  NORMAL  WHEEL  REACTIONS 


C FZF=MS*G*B/L/GC+MUF*G/GC+AX*G/GC/L* (HS*MS+HUF*MUF+HUR*MUR) 

C FZR=MS*G*A/L/GC+MUR*G/GC-AX*G/GC/L* (HS*MS+HUF*MUF+HUR*MUR) 

FZF=M*G*B/L/GC+AX*G/GC*HS/L*MS 

FZR=M*G*A/L/GC-AX*G/GC*HS/L*MS 

C CALCULATE  BRAKE  DISTRIBUTION  FACTOR 

IF  ( AX  .LT.  0.0D0  .AND.  WD  ,EQ.  1 ) THEN  Q=1.0D0 

IF  ( AX  .LE.  0.0D0  .AND.  WD  .EQ.  2 ) THEN  Q=0 . 0D0 

IF  ( AX  .GT.  0.0D0  .AND.  AX  .LE.  0.3  ) THEN  Q=Q0 

IF  ( AX  .GT.  0.3 DO  ) THEN  Q=QQ+Q1*AX 

C CALCULATE  BRAKING  OR  THRUST  FORCE  ON  FRONT  TIRES 


FXF  = M * AX  * G / GC  * Q ! F2 

FXR  =M*AX*G/GC*  (1-Q)  ! F2 

C CALCULATE  THE  TIRE  NORMAL  FORCES 

FZ ( 1 ) = FZF  / 2.0D0  + TFWT  ! FI 

FZ (2)  = FZF  / 2.0D0  - TFWT  I FI 

FZ ( 3 ) = FZR  / 2.0D0  + TRWT  !F1 

FZ ( 4 ) = FZR  / 2.0D0  - TRWT  ! FI 


C CONVERT  NORMAL  WHEEL  REACTIONS  TO  POUNDS  AS  REQ 9 D BY 

C CALS PAN  TIRE  DATA 

DO  10  1=1,4 

10  CFZ(X)  = FZ (I)  / DFAC  ! FI 

C CALCULATE  PEAK  BRAKING  COEFFICIENTS 

C CALCULATE  CORNERING  STIFFNESSES 

DO  20  1=1,4 

20  CA ( I ) = (AO  + A1  * CFZ(I)  - A1  / A2  * CFZ(X)**2)  * DFAC  ! D1 

CA (1) =PCA1*CA ( 1) 

CA ( 2 ) =PCA2  *CA ( 2 ) 

CA ( 3 ) =PCA3  *CA ( 3 ) 

CA ( 4 ) =PCA4  *CA ( 4 ) 

DO  30  1=1,4 

30  MUX ( I ) = PO  + PI  * CFZ(X)  + P2  * CFZ (I) **2  ! E2 

MUX ( 1 ) =PMUX1*MUX ( 1 ) 

MUX ( 2 ) =PMUX2 *MUX ( 2 ) 

MUX ( 3 ) =PMUX3 *MUX ( 3 ) 

MUX ( 4 ) =PMUX4 *MUX ( 4 ) 

C CALCULATE  PEAK  LATERAL  FORCE  COEFFICIENTS 

DO  40  1=1,4 
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! El 


40  MUY(I)  = B3  + B1  * CFZ(I)  + B4  * CFZ(I)**2 

MUY ( 1 ) =PMUY1*MUY ( 1 ) 

MUY ( 2 ) =PMUY2 *MUY ( 2 ) 

MUY ( 3 ) =PMUY3  *MUY ( 3 ) 

MUY ( 4 ) =PMUY4*MUY ( 4 ) 

C CALCULATE  THE  MAXIMUM  SIDE  FORCES  WITH  LONGITUDINAL  ACCELERATIO 

C EQUAL  TO  ZERO 

DO  42  1=1,4 

42  FMY(I)  = SN  * MUY ( I ) * FZ  (I)  / 100. 0D0  ! 25 

C CALCULATE  ACCELERATION  AND  BRAKING  FORCE  ON  TIRES 

FX ( 1 ) =FXF/2 . 0D0 
FX ( 2 ) =FXF/2 . 0D0 
FX ( 3 ) =FXR/2 . 0D0 
FX ( 4 ) =FXR/2 . 0D0 

DO  44  1=1,4 

44  FMX(I)  = SN  * MUX (I)  * FZ (I)  / 100. 0D0  ! 26 

C CALCUALTE  MAXIMUM  SIDE  FORCES  POSSIBLE  BY  USING  THE  FRICTION 

C ELLIPSE  CONCEPT 


DO  46  1=1,2 

46  SMAX(I)  = DSQRT ( FMY ( I ) * * 2 * ( 1 . QDO- (FXF/2 . 0D0) **2  / FMX(I) **2) ) 
DO  48  1=3,4 

48  SMAX(I)  = DSQRT ( FMY ( X ) * * 2 * ( 1 . QDQ- (FXR/2 . 0D0) **2  / FMX(X)**2)) 
C CALCULATE  RADICALS  FOR  TIRE  MODEL 


50 


C 


C 


c 

C 


DO  50  1=1 f 4 

RDCL ( I ) =DSQRT ( (SN*MUY(I) *FZ (I) /100 . 0D0) **2~  ! D2 

(MUY (I) /MUX (I) ) **2*FX(X) **2)  ! D2 

CALCULATE  SLIP  ANGLES 

AF=  D1  - ( X(l)  + A * X(2) ) / U SD3 

AR  = D2  + DF  * FAI  + ( B * X(2)  - X ( 1) ) / U ! D3 

CALCULATE  NEW  ALPHA  BARS 

AA ( 1)  = PAB1  * CA( 1)  * AF  / RDCL(l)  !C1 

AA (2)  = PAB2  * CA (2)  * AF  / ROCL(2)  !C1 

AA ( 3 ) = PAB3  * CA(3)  * AR  / RDCL(3)  !C1 

AA (4 ) = PAB4  * CA(4)  * AR  / RDCL(4)  ! Cl 


CALCULATE  CORNERING  FORCE  PER  BODY  ROLL  ANGLE  DUE  TO  INCLINATIO 

OF  THE  FRONT  WHEELS 


FI  = ISF  * GF  !B2 

C CALCULATE  NEW  TIRE  FUNCTIONS 
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54 


DO  54  1=1,4 

FFAA(I)  = AA ( I ) - AA ( I ) * DABS (AA ( I ) ) / 3 . 0D0  + 

! AA(I)**3  / 27.0D0 

FFAA ( 1) =PFA1*FFAA ( 1) 

FFAA ( 2 ) =PFA2  * FFAA ( 2 ) 

FFAA ( 3 ) =PFA3  *FFAA ( 3 ) 

FFAA ( 4 ) =PFA4  *FFAA ( 4 ) 

C NOTE:  SIDE  FORCE  DUE  TO  BOTH  FRONT  TIRES 8 INCLINATION  IS 

C DIVIDED  BETWEEN  THE  LEFT  AND  RIGHT  TIRE  FORCES 

C CALCULATE  FRONT  TIRE  FORCES  INCLUDING  FORCE  DUE  TO  INCLINATION 

DO  56  1=1,2 

FY ( I ) = SN  * MUY(I)  * FZ (I)  * FFAA (I)  / 100. 0D0  + 

! FI  * FAI/2.0D0 
56  CONTINUE 

C CALCULATE  REAR  TIRE  FORCES 

DO  58  1=3,4 

58  FY ( I ) = SN  * MUY(I)  * FZ(I)  * FFAA (I)  / 100. 0D0 

FY ( 1 ) =PFY1*FY ( 1 ) 

FY (2) =PFY2*FY (2) 

FY ( 3 ) =PFY  3 * FY ( 3 ) 

FY ( 4 ) =PFY4  *FY ( 4 ) 

C CHECK  TO  SEE  IF  MAXIMUM  SIDE  FORCES  HAVE  BEEN  EXCEEDED 

DO  60  1=1,4 

60  IF  ( FY(I)  .GT.  SMAX(I)  ) GOTO  62 

F ( 1 ) =-M*U*X ( 2 ) /GC+FY ( 1 ) +FY ( 2 ) +FY ( 3 ) +FY ( 4 ) 

F ( 2 ) =A* ( FY ( 1 ) +FY ( 2 ) ) -B* ( FY ( 3 ) +FY ( 4 ) ) +CMF*AF+CMR*AR 

C SET  VARIABLE  VALUES  EQUAL  TO  VALUES  CALCULATED  BY  SUBROUTINE 

C MODEL 

C VAR ( 1 ) =X ( 1 ) ! V 

C VAR ( 2 ) =X ( 2 ) ! r 

VAR ( 3 ) =FAI 
VAR ( 4 ) =AF 
VAR ( 5 ) =AR 
VAR ( 6 ) =FY ( 1 ) 

VAR ( 7 ) =FY ( 2 ) 

VAR ( 8 ) =FY ( 3 ) 

VAR ( 9 ) =FY ( 4 ) 

VAR ( 10 ) =SMAX ( 1 ) 

VAR (11) =SMAX ( 2 ) 

VAR ( 12 ) =SMAX ( 3 ) 

VAR ( 13 ) =SMAX ( 4 ) 
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CALL  VDATA 


IF  (FLG1.EQ. 1)  THEN 

WRITE (1,52)  Dl*57 . 3 , X ( 1 ) ,X(2) , FAI*57 . 3 , AF*57 . 3 , 
AR*57 . 3 , FY ( 1 ) , FY ( 2 ) , FY ( 3 ) , FY ( 4 ) 

FORMAT ( IX ,F6.3,2X,5(F8.4,2X) ,4(F10.4,2X) ) 

WRITE (2 ,55)  Dl*57.3, ACC, R,FZ(1) , FZ ( 2 ) , FZ ( 3 ) , FZ ( 4 ) , 
TFWT , TRWT 

FORMAT ( IX, F6.3,2X,F7.4,2X,F8.1,2X,6(F10.4,2X) ) 

WRITE (3, 57)  01*57. 3, CA(1) ,CA(4) ,RDCL(1) ,RDCL(4) , 
AA  ( 1)  , AA ( 4 ) , FFAA ( 1 ) , FFAA ( 4 ) 

FORMAT ( IX, F6.3,2X,2 (F10.2,2X) , 6(F10.4,2X) ) 

END  IF 
RETURN 


TERMINATION  ROUTINE  FOR  EXCEEDED  TIRE  FORCES 


WRITE (6,*)  8 THE  MAXIMUM  ALLOWABLE  TIRE  FORCE  WAS  EXCEEDED, 

IF  (I.EQ.l)  THEN 

WRITE (6,*)  8 AT  THE  FRONT  LEFT  TIRE' 

END  IF 

IF  (I.EQ.2)  THEN 

WRITE (6,*)  8 AT  THE  FRONT  RIGHT  TIRE' 

END  IF 

IF  (I.EQ.3)  THEN 

WRITE (6,*)  8 AT  THE  REAR  LEFT  TIRE  8 

END  IF 

IF  (I.EQ.4)  THEN 

WRITE (6,*)  'AT  THE  REAR  RIGHT  TIRE' 

END  IF 
WRITE (6, *) 

WRITE (6,*)  'PROGRAM  TERMINATED  8 

STOP 

END 


APPENDIX  C 


FREQUENCY  DOMAIN  SENS! 


.OWCHAR' 


c-i 


o o o 


c *************************************************************** 
c * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 

C * A PUBLIC  CORPORATION  * 

C * * 

c *************************************************************** 
c * * 

C * PROGRAM  MAIN  - FREQDOM3 . FOR  * 

C * * 

C * SENSITIVITY  ANALYSIS  PROGRAM  IN  FREQENCY  DOMAIN  * 

C * * 

C * LAST  UPDATE  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

C * ALAN  BINDEMANN  * 

C * * 

C * REQUIRES  SUBROUTINES : FMQDEL. FOR  * 

C * FVDATA . FOR  * 

C * INPUTS . FOR  * 

C * TRANSFER. FOR  * 

C * * 

C * PROGRAM  INPUT  - READ  IN  BY  SUBROUTINES  INPUTS . FOR  AND  * 

C * FVDATA. FOR  * 

C * * 

C *************************************************************** 

PROGRAM  FREQ DOM 3 

REAL  DLV(50,5Q) , DVDP1 ( 50 , 50) , DVDP1L ( 50 , 50 ) , DVDP2 (50,50) , 

! OVDP2L(5Q, 50) ,SPAR(50) ,V(50,50,7) , 

! A(10/10) ,8(10,10) , SORT (5,50) 

INTEGER  N, IDVDP1 (50) 

COMPLEX  C(10,10) 

CHARACTER* 12 , OFXLNM, PFXLNM 

COMMON  BLOCK  CONTAINING  PARAMETERS 

COMMON/ PARA/  PRM(IOO) 

C 

COMMQN/SIZE/N, NP, ND, NB, IVAR(50, 2) 

CC  INPUT  SIMULATION  DATA: 

CALL  INPUTS ( PERT , IM , FS  , FE , FPL , FPR , I PLOT, ISENS, 

1 QFILNM, PFILMM) 

CC  INPUT  VEHICLE  DATA,  FLAG  SIMULATION  PARAMETERS  AND  VARIABLES: 

CALL  FVDATA 

DO  1 1=1, NP 
SPAR (I) =PRM(I) 

1 CONTINUE 

C-2 


CC  TOTAL  NUMBERS  FOR  INCREMENT: 

NIN=ANINT ( ( FE-FS ) /FPL) 

ccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C OPEN  OUTPUT  FILES 

OPEN (UNIT=6 , FILE=OFILNM, STATUS= ! UNKNOWN ' ) 

IF  (IPLOT.EQ.l)  THEN 

OPEN (UNIT=1 , FILE=PFILNM, STATUS = 8 UNKNOWN  1 ) 

WRITE (1,7)  NP 
WRITE (1,7)  ND 
WRITE (1,7)  NIN 
7 FORMAT (IX, 14) 

END  IF 

CCCCCCCCCCCC  STARTING  FREQUENCY  INCREMENT  CCCCCCCCCCCC 

IF  (IPLOT.EQ.l)  THEN 
WRITE (1,405)  FS+FPL*FLOAT(K) 

END  IF 

80  CONTINUE 

S=FS+FPL*FLOAT (K) 

WRITE (5,*)  'FREQUENCY  = ' , S 

IF  (S/FPR  .EQ.  FLOAT (NINT (S/FPR) ) ) THEN 
WRITE  (6,  *) 

END  IF 

CCCCCCCCC  STARTING  PARAMETER  LOOP  CCCCCCCCC 


IP=1 


90  CONTINUE 

CCCCCCCCC  INM=1 : CALCULATE  V(T,P)  CCCCCCCCCCCCCCCCCCC 


INM=1 


DO  100  1=1, NP 
100  PRM ( I ) =S  PAR ( I ) 

CALL  FMODEL(N, A, B) 

CALL  TRANSFER (N,NB, A, B,S,C) 

DO  102  1=1, ND 
C 

C IF  ISENS  EQUALS  1 THEN  CALCULATE  AMPLITUDE  OF  COMPLEX 
C VARIABLE,  ELSE  CALCULATE  PHASE  OF  COMPLEX  VARIABLE 
C 

IF  ( ISENS. EQ.l)  THEN 

V ( I , IP , INM) =ABS (C ( I VAR (1,1) ,IVAR(I,2) ) ) 
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oooo  o oooo 


/ 


ELSE 

X1=REAL  (C(IVAR(I,1) ,IVAR(I,2) ) ) 

X2=AIMAG ( C ( IVAR (1,1) , I VAR (1,2) ) ) 

V(I,IP,INM)=ATAN2 (X2,X1) 

END  IF 

102  CONTINUE 

CCCCCCCCC  INM=2:  CALCULATE  V(T,P-DP)  CCCCCCCCCCCCCCCCCCC 

INM=2 


PRM  (IP)  =S  PAR  (IP)  -SPAR  (IP)  *PERT 

CALL  FMQDEL(M, A, B) 

CALL  TRANSFER ( N , NB , A , B , S , C ) 

DO  112  1=1, ND 

IF  ISENS  EQUALS  1 THEN  CALCULATE  AMPLITUDE  OF  COMPLEX 
VARIABLE , ELSE  CALCULATE  PHASE  OF  COMPLEX  VARIABLE 

IF  ( ISENS. EQ.l)  THEN 

V(I , IP, XNM) =ABS (C (IVAR (I , 1) , IVAR (1,2) ) ) 

ELSE 

Xl—REAL  ( C ( IVAR (1,1) , IVAR (1,2))) 

X 2= A I MAG (C ( IVAR (1,1) , IVAR (1,2) ) ) 

V(I , IP, INM) = AT AN 2 (X2,X1) 

END  IF 

112  CONTINUE 


CCCCCCCC  INM” 3 : 


CALCULATE  V(T,P-2.*DP)  CCCCCCCCCCCCCCCCCCC 


INM=3 


IF  ( (IM.EQ.15) .OR. (IM.EQ.17) ) THEN 

PRM (IP) =SPAR ( IP) -SPAR ( IP) *2.Q*PERT 

CALL  FMODEL(N,A,B) 

CALL  TRANSFER ( N , NB , A , B , S , C ) 

DO  122  1=1 , ND 

IF  ISENS  EQUALS  1 THEN  CALCULATE  AMPLITUDE  OF  COMPLEX 
VARIABLE , ELSE  CALCULATE  PHASE  OF  COMPLEX  VARIABLE 

IF  ( ISENS. EQ.l)  THEN 

V ( X , IP , INM) =ABS ( C ( IVAR (1,1) , IVAR (I, 2) ) ) 

ELSE 

X1=REAL  ( C ( IVAR (1,1) , IVAR (1,2) ) ) 

X2=AIMAG  ( C ( IVAR  (1,1)  if  IVAR  (1,2)  ) ) 

V ( I , IP,  INM)  = AT  AN  2 (X2,X1) 

END  IF 

122  CONTINUE 


C-4 


noon  o oooo 


END  IF 


CCCCCCCCC  INM=4:  CALCULATE  V(T,P-3.*DP)  CCCCCCCCCCCCCCCCCCC 

INM=4 

IF  (IM.EQ.17)  THEN 

PRM(IP) =SPAR (IP) -SPAR (IP) *3.0*PERT 

CALL  FMODEL(N , A, B) 

CALL  TRANSFER (N,NB, A, B,S,C) 

DO  132  1=1, ND 

IF  I SENS  EQUALS  1 THEN  CALCULATE  AMPLITUDE  OF  COMPLEX 
VARIABLE,  ELSE  CALCULATE  PHASE  OF  COMPLEX  VARIABLE 

IF  (ISENS.EQ.l)  THEN 

V ( I , IP , INM) =ABS ( C ( IVAR (1,1) , IVAR(I,2) ) ) 

ELSE 

X1=REAL  ( C ( IVAR (1,1) , IVAR (1,2) ) ) 

X2=AIMAG ( C ( IVAR (1,1), IVAR (1,2))) 

V(I, IP, INM) = AT AN 2 (X2,X1) 

END  IF 

13  2 CONTINUE 
END  IF 


CCCCCCCC  INM=5 i 


CALCULATE  V(T,P+DP)  CCCCCCCCCCCCCCCCCCC 


INM=5 


PRM (IP) =SPAR (IP) +SPAR (IP) *PERT 
CALL  FMODEL(N, A, B) 

CALL  TRANSFER (N,NB, A, B,S,C) 

DO  142  1=1 , ND 

IF  I SENS  EQUALS  1 THEN  CALCULATE  AMPLITUDE  OF  COMPLEX 
VARIABLE,  ELSE  CALCULATE  PHASE  OF  COMPLEX  VARIABLE 

IF  (ISENS.EQ.l)  THEN 

V ( I , IP , INM) =ABS ( C ( IVAR (1,1) , IVAR (I, 2) ) ) 

ELSE 

X1=REAL  ( C ( IVAR (1,1) , IVAR (1,2) ) ) 

X2=AIMAG ( C ( IVAR (1,1) , IVAR (1,2) ) ) 

V ( I , IP , INM) = AT AN 2 (X2,X1) 

END  IF 
142  CONTINUE 

CCCCCCCCC  INM=6:  CALCULATE  V(T,P+2.*DP)  CCCCCCCCCCCCCCCCCCC 


C-5 


oooo  o oooo 


1 NM=  6 


IF  ( (IM.EQ.15) .OR. (IM.EQ.17) ) THEN 

PRM ( I P ) =S  PAR (IP) +SPAR (IP) *2 . 0*PERT 

CALL  FMQDEL(N, A, B) 

CALL  TRANSFER ( N , NB , A , B , S , C ) 

DO  152  1=1, ND 

IF  ISENS  EQUALS  1 THEN  CALCULATE  AMPLITUDE  OF  COMPLEX 
VARIABLE,  ELSE  CALCULATE  PHASE  OF  COMPLEX  VARIABLE 

IF  ( ISENS. EQ.l)  THEN 

V ( I , IP , INM) =ABS ( C ( IVAR (1,1), IVAR (1,2))) 

ELSE 

X1“REAL  ( C ( IVAR (1,1) , IVAR (1,2) ) ) 

X2=AIMAG ( C ( IVAR (1,1) , IVAR (I, 2) ) ) 

V ( I , IP , INM) =ATAN2 (X2,X1) 

END  IF 

152  CONTINUE 
END  IF 


CCCCCCCC  XNM=7 : 


CALCULATE  V(T,P+3.*DP)  CCCCCCCCCCCCCCCCCCC 


INM=7 


IF  (IM.EQ.17)  THEN 

PRM (IP) =SPAR(IP) -fSPAR(XP) *3.0*PERT 

CALL  FMODEL(N, A, B) 

CALL  TRANSFER (N,NB, A, B, S , C) 

DO  162  1=1 , ND 

IF  ISENS  EQUALS  1 THEN  CALCULATE  AMPLITUDE  OF  COMPLEX 
VARIABLE,  ELSE  CALCULATE  PHASE  OF  COMPLEX  VARIABLE 

IF  (ISENS. EQ.l)  THEN 

V (I , IP, INM) =ABS (C (IVAR (I , 1) , IVAR (I, 2) ) ) 

ELSE 

X1=REAL  ( C ( IVAR (1,1) , IVAR (1,2) ) ) 

X2=AIMAG ( C ( IVAR (1,1) , IVAR (I, 2) ) ) 

V ( X , IP , INM) = AT AN 2 (X2,X1) 

END  IF 
162  CONTINUE 

END  IF 

CCCCCCC  STARTING  STATE  VARIABLE  INCREMENT  CCCCCCCC 


C— 6 


ISV=1 


170 


CONTINUE 


CC  CALCULATE  PERCENTAGE  SENSITIVITY 

DLV ( ISV, IP) = (V ( ISV , IP , 5 ) -V ( ISV , IP, 2 ) )/2.0 
CC  CENTRAL  DIFF.  TO  CALCULATE  THE  DERIVATIVE: 

IF  (IM.EQ.13  ) THEN 

IF  ( ( (V(ISV,IP,2)-V(ISV,IP,5) ) ) .EQ.0.0)  THEN 
DVDP1 ( ISV, IP) =0 . 00 
ELSE 

DVDP1 ( ISV, IP) = ( -V ( ISV , IP, 2 ) +V ( ISV , IP , 5 ) ) 

1 / (SPAR(IP) *2 . 00*PERT) 

END  IF 

IF  ( (DVDP1 (ISV, IP) *SPAR(XP) ) .EQ.0.0)  THEN 
DVDP1L ( ISV, IP) —0 . 00 
ELSE 

DVDP1L (ISV, IP) =DVDP1 ( ISV, IP) *SPAR ( IP) /V ( ISV, IP, 1) 

END  IF 

IF  ( (V(ISV, IP,2)-2.D0*V(XSV,IP,1)+V(XSV,XP,5) ) .EQ.O.DO)  THEN 
DVDP2 ( ISV, IP) =0 . 0D0 
ELSE 

DVDP2 (ISV,IP)=(  V ( ISV, IP, 2 ) -2 . 00 *V ( ISV, IP, 1) +V (ISV, IP, 5) ) 

1 / ( (SPAR (IP) *PERT) **2 ) 

END  IF 

IF  ( (DVDP2 ( ISV, IP) *SPAR (IP) ) . EQ .0.0)  THEN 
DVDP2L ( ISV, IP)=0.0 

ELSE 

DVDP2 L ( ISV , IP) =DVDP2 ( ISV , IP) *SPAR (IP) /DVDP1 ( ISV , IP) 

END  IF 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
ELSE  IF  (IM. EQ. 15  ) THEN 

Al= ( V ( ISV, IP, 3 ) -8 . QQ*V ( ISV, IP , 2 ) +8 . 00 *V ( ISV, IP , 5 ) 

1 -V(ISV, IP, 6) ) 

IF  (A1.EQ.0.00)  THEN 
DVDP1 ( ISV, IP) =0 . 00 
ELSE 

DVDP1 (ISV, IP)=A1/ (SPAR (IP) *1. 2D1*PERT) 

END  IF 

IF  ( (DVDP1 (ISV, IP) *SPAR(IP) ) .EQ.0.0)  THEN 
DVDP1L ( ISV, IP)=0. 00 
ELSE 

DVDP1L ( ISV, IP) =DVDP1 ( ISV, IP) *SPAR ( IP) /V ( ISV, IP, 1) 

END  IF 
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1 


Al= ( -V ( ISV, IP, 3 ) +1 . 6D1*V ( ISV, IP , 2 ) -3 . GDI*  V(ISV, IP, 1) 
+1 . 6D1*V ( ISV, IP, 5) - V (ISV, IP, 6) ) 

IF  (Al.EQ.O.ODO)  THEN 
DVDP2 ( ISV, IP) =0 . ODO 
ELSE 

DVDP2 ( ISV, IP) =A1/ ( 1 . 2D1* (SPAR (IP) *PERT) **2) 

END  IF 

IF  ( (DVDP2  ( ISV,  IP)  *SPAJR  (IP)  ) . EQ  .0.0)  THEN 
DVDP2L(ISV, IP) =0 . 0 
ELSE 

DVDP2L ( ISV, IP)=DVDP2 (ISV, IP) *SPAR ( IP) /DVDP1 (ISV, IP) 
END  IF 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

ELSE  IF  (IM.EQ.17  ) THEN 

Al= ( »V ( ISV , IP , 4 ) +9 . 00  *V ( ISV , IP , 3 ) 

1 ”4 . 5D1*V ( ISV,  IP,  2)  4-4 . 5D1*V (ISV,  IP,  5) 

1 -9 . Q0*V (ISV, IP, 6) + V (ISV, IP, 7 ) ) 

IF  (A1.EQ.0.00)  THEN 
DVDP1 ( ISV, IP) =0 . 00 
ELSE 

DVDP1 (ISV, IP)  =A1/ (SPAR (IP  ) *6 . 0D1*PERT) 

END  IF 

IF  ( (DVDP1(ISV,IP) *SPAR(IP) ) .EQ.0.0)  THEN 
DVDP1L ( ISV , IP) =0 . 00 
ELSE 

DVDP1L(XSV, IP) =DVDP1 (ISV, IP) *SPAR ( IP) /V ( ISV, IP, 1) 
END  IF 


Al=  ( 2 . 0D0*V ( ISV, IP, 4 ) -2 . 7D1*V ( ISV, IP, 3 ) 

1 +2 . 7D2*V (ISV, IP, 2) -4 . 9D2*V (ISV, IP, 1) 

1 +2 . 7D2*V (ISV, IP, 5) ”2 . 7D1*V ( ISV, IP, 6) 

1 +2 . 0D0*V (ISV, IP, 7) ) 

IF  (Al.EQ.O.ODO)  THEN 
DVDP2 ( ISV, IP) =0 o ODO 
ELSE 

DVDP2 ( ISV, IP) =A1/ ( 1 . 8D2* (SPAR (IP  ) *PERT) **2) 

END  IF 

IF  ( (DVDP2 (ISV, IP) *SPAR(IP) ) .EQ.0.0)  THEN 
DVDP2L(ISV, IP) “0 . 0 
ELSE 

DVDP2L(ISV, IP) ~DVDP2 (ISV, IP) *SPAR(IP) /DVDP1 (ISV, IP) 
END  IF 

END  IF 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
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IF  (ISV.LT.ND)  THEN 
ISV=ISV+1 
GO  TO  170 
END  IF 

CCCCCCCCC  END  OF  STATE  VARIABLE  INCREMENT  CCCCCCCCCCCC 

CC  HARD  COPY  TITLE  FORMAT  OUTPUT: 

IF  (IP.LT.NP)  THEN 
IP=IP+1 
GO  TO  90 
END  IF 

CCCCCCCCCCC  END  OF  PARAMETER  INCREMENT  CCCCCCCCCCCCCCC 


ISV=X 


270  CONTINUE 


IF  (S/FPR  . EQ . FLOAT (MINT (S/FPR) ) ) THEN 


WRITE (6, *) 

WRITE  ( 6 , * ) 

IF  (XSENS.EQ.l)  THEN 

WRITE (6, 277)  IVAR(ISV, 1) , IVAR(ISV, 2) , V(XSV, 1, 1) 

277  FORMAT (IX,  'AMPLXTXUDE  OF  ELEMENT  C ( ' , 12 , ' , ' , 12 , ' ) =',E13.6) 
ELSE 

WRITE (6, 274)  IVAR(ISV, 1) ,IVAR(ISV,2) 

274  FORMAT (IX,  'PHASE  OF  ELEMENT  C ( 1 , 12 , ' , 1 , 12 , ' ) =' ,E13.6) 

END  IF 

WRITE (6, *)  ' — -- — 

WRITE (6, 272) 

WRITE (6,273) 


272  FORMAT (15X, 

1 
2 

3 

4 


1 

2 

3 

4 

5 


,1X, 
r IX , 
/IX, 
/IX, 

) 


FORMAT (IX,  « FREQ  ' , 2X,  ' IP 8 , 4X,  ' 

DV-1 

MX, 

1 

8 

DVDP-1 

MX, 

2 

1 

LDVDP-1 

MX, 

3 

I 

DVDP-2 

MX, 

4 

8 

LDVDP-2  8 ) 

DO  280  IP=1,NP 

WRITE (6, 275)  S , IP , DLV ( ISV, IP) , DVDP1 ( ISV, IP) , 

1 DVDP1L ( ISV, IP) , DVDP2 (ISV, IP) , DVDP2L ( ISV, IP) 

275  FORMAT (1X,F5.2,2X,I2,2X,5(E18.6,1X) ) 

280  CONTINUE 

WRITE (6, *) 
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cc 

CC  SORT  THE  EFFECT  ORDER  OF  ALL  PARAMETERS  TO  ONE  STATE  VARIABLE: 
CC 

DO  287  JJ=1, 5 
IF  (JJ.EQ.l)  THEN 
DO  J=1,NP 

SORT (JJ, J) =DLV (ISV, J) 

END  DO 

ELSE  IF  (JJ.EQ.2)  THEN 
DO  J=1 , NP 

SORT ( JJ , J) =DVDP1 ( ISV, J) 

END  DO 

ELSE  IF  ( JJ . EQ . 3 ) THEN 
DO  J=1 , NP 

SORT (JJ, J) =DV0P1L(XSV, J) 

END  DO 

ELSE  IF  ( JJ . EQ . 4 ) THEN 
DO  J=1 , NP 

SORT ( JJ , J) — DVDP2 (ISV, J) 

END  DO 

ELSE  IF  ( JJo  EQ»  5)  THEN 
DO  J=1 , NP 

SORT (JJ, J) “DVDP2 L ( I S V , J ) 

END  DO 
END  IF 

DO  286  I— 1 , NP 

286  I DVD PI ( I ) =1 

DO  312  J—2 , NP 
AD— ABS ( SORT ( J J , J ) ) 

XA— IDVDP1 (J) 

DO  301  X=J-1,1,-1 
IF  (ABS(SORT(JJ,I) ) .LE.AD)  THEN 
SORT ( JJ, 1+1) =ABS (SORT ( JJ, I) ) 

IDVDP1 (1+1) -XOVOP1 (I) 

ELSE 

GO  TO  310 
END  IF 

301  CONTINUE 

1=0 

310  SORT ( JJ, 1+1) —AD 

IDVDP1 (1+1) =IA 

312  CONTINUE 

WRITE (6, 314)  (JJ, (IDVDPl(I) , 1=1, NP) ) 

314  FORMAT (IX, 'PARAMETER  EFFECT  ORDER  (', II ,'):', IX, 20 (12 , IX) ) 

287  CONTINUE 
WRITE (6 , *) 

END  IF 
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cccccccccccccccccccccccccccccccccccccccccccccc 


cc 

cc 

cc 

cc 

cc 


CALCULATE  THE  SENSIVITY  MEASUREMENT  : 
GENERAL  INFLUENCE  OF  PARAMETER 
VECTOR  ON  ONE  STATE  VARIABLE 


316 


CC 

CC 

CC 

CC 

CC 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


SMPAV1=Q . 0 
SMPAV2=0. 0 
SMPAV3=0. 0 
SMPAV4=0 . 0 
SMPAV5=0 . 0 

DO  316  1=1, NP 

SMPAV1=SMPAV1+DVDP1 (ISV, I) **2 
SMP AV  2 =SMP AV  2 + DLV (ISV, I) **2 
SMPAV3=SMPAV3+DVDP1L( ISV,  I)  **2 
SMPAV4=SMPAV4+DVDP2 (ISV, I) **2 
SMPAV5=SMPAV5+DVDP2L(ISV, I)  **2 

SMPAV1=SQRT ( SMP AVI ) 

SMPAV2=SQRT ( SMPAV2 ) 

SMPAV3=SQRT ( SMPAV3 ) 

SMPAV4=SQRT ( SMPAV4 ) 

SMPAV5=SQRT ( SMPAV5 ) 

IF  (S/FPR  .EQ.  FLOAT (NINT (S/FPR) ) ) THEN 


WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(1)  : 

ALL 

P 

ON 

ONE 

V= 

' , SMPAV2 

WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(2)  : 

ALL 

P 

ON 

ONE 

V= 

' , SMPAV1 

WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(3)  : 

ALL 

P 

ON 

ONE 

V= 

' , SMPAV3 

WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(4)  : 

ALL 

P 

ON 

ONE 

V= 

' , SMPAV4 

WRITE (6, 

*) 

'SENSITIVITY 

MEASURE 

(5)  : 

ALL 

P 

ON 

ONE 

V= 

' , SMPAV5 

END  IF 


276 

281 


IF  (IPLOT.EQ.l)  THEN 

WRITE (1,7)  ISV 

WRITE (1,405)  V(ISV,1,1) 

DO  281  IP=1,NP 

WRITE (1,276)  DLV ( ISV, IP) , DVDP1 ( ISV, IP) , 
DVDP2 (ISV, IP) , DVDP1L ( ISV, IP) 
FORMAT ( IX ,4(E12.5,2X) ) 

CONTINUE 


318 


WRITE (1,318)  SMPAV2 
WRITE (1,318)  SMP AVI 
WRITE (1,318)  SMPAV3 
WRITE (1,318)  SMPAV4 
FORMAT ( IX, E12 . 5) 

END  IF 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


C-ll 


IF  (ISV.LT.ND)  THEN 
ISV-ISV+1 
GO  TO  270 
END  IF 

ccccccccccccccccccccccccccccccccccccccccccccccccccc 

400  CONTINUE 

IF  (K.LT.NIN)  THEN 
K-K+l 

I F ( I PLOT . EQ . 1 ) THEN 

WRITE (1,405)  FS+FPL*FLOAT(K) 

405  FORMAT ( IX , E12 . 5) 

END  IF 
GO  TO  80 
END  IF 

CLOSE (UNIT-6) 

IF ( I PLOT . EQ . 1 ) THEN 
CLOSE (UNIT-1) 

END  IF 

CCCCCCCCCCCCCCC  END  OF  FREQUENCY  INCREMENT  CCCCCCCCCCCCCCCC 

STOP 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


*************************************************************** 
* * 

* C COPYRIGHT  DECEMBER  1987  BY  * 

* THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

* A PUBLIC  CORPORATION  * 

* * 

*************************************************************** 
* * 

* SUBROUTINE  - INPUTS . FOR  * 

* * 

* INPUT  SIMULATION  DATA  FROM  FILE  OR  ALLOW  USER  TO  ENTER  * 

* * 

* LAST  UPDATE  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

* ALAN  BINDEMANN  * 

* * 

* REQUIRES  SUBROUTINES  - NONE  * 

* * 

* PROGRAM  INPUT  - TYPED  IN  BY  USER  OR  READ  IN  BY  USER  * 

* GENERATED  DATA  FILE  * 

* * 
*************************************************************** 


SUBROUTINE  INPUTS ( PERT , IM , FS , FE , FPL , FPR , I PLOT , ISENS , 

OFILNM, PFILNM) 


CHARACTER* 1 , QUERY 
CHARACTER* 12 , FN , OFILNM , PFILNM 


WRITE(5, 101) 

101  FORMAT (//, IX, ' SENSITIVITY  ANALYSIS  IN  THE  FREQUENCY  DOMAIN 
WRITE (5, 102) 

102  FORMAT ( IX , 9 C COPYRIGHT  DECEMBER  1987  BY5) 

WRITE (5, 103) 

103  FORMAT (IX, 5 THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,5) 
WRITE(5, 104) 

104  FORMAT (IX, 5 A PUBLIC  CORPORATION5) 

C 


WRITE (5, 1) 

1 FORMAT (//, IX, '***  Data  Entry  ***',/) 

WRITE (5, 2) 

2 FORMAT ( IX, 1 1. ) Enter  From  Keyboard5) 
WRITE (5, 3) 

3 FORMAT (IX, 5 2 . ) Read  From  File5,/) 
ACCEPT  *,I1 

IF (II. EQ. 1)  THEN 
GOTO  27 
END  IF 
WRITE (5, 4) 

4 FORMAT (IX,  5 Input  Filename5) 

ACCEPT  5 , FN 

5 FORMAT (A12) 

OPEN (UNIT=1 , FILE=FN , STATUS= 5 OLD  5 ) 


,/) 


READ ( 1 , * ) PERT 
READ ( 1 , * ) IM 
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202 

27 

122 

124 

126 

128 

130 

240 

242 

244 

246 

120 

15 

248 

250 

252 

254 

256 

259 


READ ( 1 , * ) FS 
READ ( 1 , * ) FE 
READ ( 1 , * ) FPL 
READ ( 1 , * ) FPR 
READ ( 1 , * ) I PLOT 
READ ( 1 , * ) ISENS 
READ (1,202)  OFILNM 
READ (1,202)  PFILNM 
CLOSE (UNIT=1) 

RETURN 

FORMAT ( IX, A1 2) 

CONTINUE 
WRITE(5, 122) 

FORMAT (IX, '***  Sensitivity  Type  ***',/) 
WRITE(5, 124) 

FORMAT (IX, 8 1. ) Amplitude  Sensitivity®) 
WRITE(5, 126) 

FORMAT (IX, 8 2. ) Phase  Sensitivity8,/) 

WRITE(5, 128) 

FORMAT (IX, 8 Input  the  Number  of  Your  Choice8) 
ACCEPT  130, ISENS 
FORMAT (II) 

IM—13 

PERT-- 1 .OE-2 


Program  Parameters  ****,/) 


WRITE (5,240) 

FORMAT (IX,  8 *** 

WRITE (5,242) 

FORMAT (IX, 8 Derivative  Method  - Central  Difference 
WRITE (5,244) 

FORMAT ( IX, 8 Percent  used  in  Central  Difference  - 1 
WRITE (5,246) 

FORMAT (IX,  8 Do  You  Wish  to  Change  These  Parameters 

ACCEPT  120, QUERY 
FORMAT (Al) 

IF  (QUERY. EQ. 8 Y* . OR. QUERY . EQ . 8y8 ) 

WRITE (5, 15) 

FORMAT (//) 

WRITE (5,248) 

FORMAT (IX, 8 ***  Derivative  Methods 
WRITE (5,250) 

Central  Difference  w/  3 


THEN 


) 


***',/) 

Points  8 ) 


FORMAT ( IX , 8 1 
WRITE (5,252) 

FORMAT ( IX, 8 2 . ) Central  Difference  w/ 

WRITE (5,254) 

FORMAT (IX, 8 3. ) Central  Difference  w/ 

WRITE (5,256) 

FORMAT (IX, 8 Input  the  Number  of  Your  Choice8) 
ACCEPT  259,11 
FORMAT (II) 

IF (II . EQ. 1)  THEN 


Points 8 ) 
Points  8 ,/) 


With  3 Points 
OE-28,/) 

(Y/N) 8) 
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IM=13 
END  IF 

IF ( I 1 . EQ . 2 ) THEN 

IM=15 

END  IF 

IF ( II . EQ . 3 ) THEN 

IM=17 

END  IF 

WRITE (5,258) 

258  FORMAT (/, IX, ' Specify  % Used  in  Central  Difference') 

ACCEPT* , PERT 

END  IF 

WRITE (5, 15) 

WRITE (5, 268) 

268  FORMAT ( IX, * ***  Frequency  Start,  Stop,  and  Step  ***',/) 

WRITE (5,270) 

270  FORMAT (IX, 'Starting  Frequency  (Rad/S)  6 ) 

ACCEPT*, FS 
WRITE(5, 272) 

272  FORMAT (IX, 'Ending  Frequency  (Rad/S)1) 

ACCEPT* , FE 
WRITE(5, 278) 

278  FORMAT ( IX, ' Frequency  Increment  For  Output  Data  (Rad/S)') 

ACCEPT* , FPR 
WRITE(5, 302) 

302  FORMAT ( IX, ' Input  Filename  For  Output  Data®) 

ACCEPT  5 , OFILNM 

WRITE (5,273) 

2 73  FORMAT ( IX,  9 Would  You  Like  the  Program  to  Create  a Plotting 

*!  Output  File  (Y/N)  6 ) 

ACCEPT  120 , QUERY 

IF (QUERY. EQ. ' Y ' . OR. QUERY . EQ . 'y 8 ) THEN 

IPLOT=l 

WRITE (5,284) 

284  FORMAT (IX, 

! 'Input  Storage  Frequency  Increment  for  Plot  (Rad/S)') 
ACCEPT* , FPL 
WRITE(5, 304) 

304  FORMAT ( IX, ® Input  Filename  For  Plotting  Data') 

ACCEPT  5 , PFILNM 

ELSE 

IPLOT=0 

FPL=FPR 

END  IF 

WRITE (5, 15) 

WRITE(5, 274) 

274  FORMAT ( IX, ' Do  You  Want  to  Store  This  Data  in  a File  (Y/N)') 
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ACCEPT  120 , QUERY 

IF (QUERY „ EQ. ' Y' . OR. QUERY . EQ . 'y 1 ) THEN 
WRITE (5,  *) 

WRITE (5,276) 

276  FORMAT ( IX , 8 What  Filename  Do  You  Wish  to  Give  the  Input  Data') 

ACCEPT  5 , FN 

OPEN (UNIT-1, FILE-FN , STATUS- 8 NEW 8 ) 

WRITE ( 1 f * ) PERT 
WRITE (1,*)  IM 
'WRITE  (1,*)  FS 
WRITE (1,*)  FE 
WRITE (1,*)  FPL 
WRITE (1,*)  FPR 
WRITE (1,*)  I PLOT 
WRITE (1,*)  ISENS 
WRITE (1,*)  OFILNM 
WRITE (1,*)  PFXLNM 
CLOSE (UNIT-1) 

END  IF 

CCCCCCCCCCCCCCCCCC  END  OF  USER  INPUT  CCCCCC  CCCCCCCCCCCCCC 
RETURN 
END 
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c *************************************************************** 
c * * 

C * C COPYRIGHT  DECEMBER  1987  BY  * 

C * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 

C * A PUBLIC  CORPORATION  * 

C * * 

Q *************************************************************** 

C * * 

C * SUBROUTINE  - FVDATA . FOR  * 

C * * 

C * DATA  INPUT  ROUTINE  FOR  SENSITIVITY  ANALYSIS  IN  THE  * 

C * FREQUENCY  DOMAIN  * 

C * * 

C * LAST  UPDATE  - 12/18/87  BY  - ANDRZEJ  G.  NALECZ  * 

C * ALAN  BINDEMANN  * 

C * * 

C * REQUIRES  SUBROUTINES  - NONE  * 

C * * 

C * PROGRAM  INPUT  - READ  IN  FROM  FILE  FVDAT.DAT  * 

C * * 

q *************************************************************** 

C 

SUBROUTINE  FVDATA 
C 

COMMON / VDAT/ DAT (100) 

COMMON/ PARA/ PRM (100) 

COMMON/SIZE/N , NP, NO, NB, IVAR (50 , 2 ) 

INTEGER* 4 IFLAG(IOO) /INDX(100) , NFLG 
CHARACTER* 3 5 , VD ( 1 0 0 ) 

IF  FIRST  CALL  THEN  OPEN  DATA  FILE  FVDAT.DAT  AND  READ  IN  VEHICLE  DATA 
IF  (NFLG. EQ. 0)  THEN 
NFLG=1 
11=0 

OPEN (UNIT=1 , FILE= ' FVDAT . DAT ' , STATUS=  * OLD ' ) 

READ  IN  MATRIX  DIMENSION  N 
READ ( 1 , * ) N 

READ  IN  MATRIX  DIMENSION  NB 

READ ( 1 , * ) NB 
DO  10  1=1,100 

READ  PARAMETER  FLAG,  PARAMETER  DESCRIPTION,  AND  PARAMETER  VALUE 

READ ( 1 , * ) I FLAG ( I ) , VD ( I ) , DAT ( I ) 

C 

C IF  PARAMETER  DESCRIPTION  SIGNALS  END  OF  PRIMARY  PARAMETERS  ' ENDPP ' 

C THEN  SET  SET  NUMBER  OF  PARAMETERS  AND  CONTINUE 
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c 

IF  (VD(I) .EQ. 'ENDPP' ) THEN 
NPT=I”1 
GOTO  15 
END  IF 

IF  PARAMETER  FLAG  EQUALS  1 THEN  INCREMENT  THE  NUMBER  OF  ACTIVE 
PARAMETERS  AND  STORE  VALUE  OF  ACTIVE  PARAMETER  IN  ARRAY  DAT 

IF  (IFLAG(I) . EQ . 1)  THEN 
11=11+1 
PRM(II) =DAT(I) 

END  IF 

10  CONTINUE 

15  CONTINUE 

AFTER  ALL  PARAMETERS  HAVE  BEEN  READ  IN  READ  IN  WHICH  ELEMENTS  OF 
THE  TRANSFER  FUNCTION  MATRIX  WILL  BE  ANALYZED 

DO  40  1=1 , 50 

READ ( 1 , * ) I VAR (1,1) / I VAR (1,2) 

IF  ELEMENT  0,0  IS  READ  IN  THEN  STOP  READING  VARIABLES 
IF  ( I VAR (1,1) . EQ . 0 . AND . IVAR (1,2) . EQ . 0 ) THEN 
SET  NUMBER  OF  SENSITIVITY  VARIABLES 


ND=I-1 
GOTO  50 
END  IF 

40  CONTINUE 

50  CLOSE  (UNIT=1) 

NP=Q 

COUNT  TOTAL  NUMBERS  OF  ACTIVE  PARAMETERS  AND  NOTE  POSITION 

DO  30  1=1 , NPT 
IF  (IFLAG(I) .EQ.l)  THEN 
NP=NP+ 1 
INDX(NP) =1 
PRM(NP) =DAT ( I ) 

END  IF 

30  CONTINUE 

END  IF 

WHEN  SUBSEQUENT  CALLS  TO  FVDATA . FOR  ARE  MADE  THIS  SECTION  OF 

CODE  IS  USED 

CC  UPDATED  PARA (FROM  SENSTIVITY  PROGRAM)  SENT  BACK  TO  MODEL: 

DO  80  1=1, NP 
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DAT ( INDX ( I ) ) =PRM ( I ) 
80  CONTINUE 

RETURN 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


G 


& 


3 


*************************************************************** 
* * 

* C COPYRIGHT  DECEMBER  1987  BY  * 

* THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI,  * 

* A PUBLIC  CORPORATION  * 

* * 


*************************************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SUBROUTINE  NAME  : TRANSFER 

PURPOSE:  To  calculate  the  transfer  function  matrix 
given  the  coefficient  matrix,  the  input 
matrix,  and  the  freq. 


LAST  REVISION  - 12/18/87 


BY  - ANDRZEJ  G.  NALECZ 
ALAN  C.  BINDEMANN 


CALLING  SEQUENCE: 

CALL  TRANSFER (N, NP, A, B, S , C) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


ARGUMENTS : 
INPUT : 


OUTPUT : 


A - The  N x N coefficient  matrix 
N - Matrix  dimension  N 
B ~ The  N x NP  input  matrix 
S - The  frequency 

C - The  complex  transfer  function 

matrix  N x NP 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*************************************************************** 
SUBROUTINE  TRANSFER (N, NP, A, B, S , C) 


REAL  A(10, 10) ,B(10, 10) ,S 

COMPLEX  D(10, 10) ,C(10, 10) ,E(10, 10) , PIVOT (80) ,T 
INTEGER  IPVOT (80), INDEX (80,2) 

EQUIVALENCE  (IROW, JROW) , (ICOL, JCOL) 

IF  (S . EQ ,0.0)  THEN 

S=0el 

ISFLG=1 

END  IF 


SET  UP  MATRIX  D 
DO  2 1=1, N 
DO  2 J=1 , N 

D(X, J)=CMPLX(-A(I, J) ,0.0) 
DO  3 1=1, N 

D (I , I)  =D  (X  , I)  -FCMPLX  ( 0 . 0 , S ) 


4 


DO  4 1=1, N 
DO  4 J=1,N 
E (I , J)  — D (I , J) 
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INVERT  MATRIX  [D] 

INITIALIZATION 
DO  10  J=1 , N 
10  IPVOT ( J) =0 

DO  60  1=1, N 

SEARCH  FOR  PIVOT  ELEMENT 
T= ( 0 . 0 , 0 . 0 ) 

DO  25  J=1,N 

IF ( IPVOT (J) .EQ.l)GO  TO  25 
DO  20  K=1,N 

IF (IPVOT (K) .GT.l) RETURN 

IF ( IPVOT (K) .EQ.l)GO  TO  20 

IF ( ABS (T) . GE . ABS ( D ( J , K) ) ) GO  TO  20 

IROW=J 

ICOL=K 

T=D( J, K) 

20  CONTINUE 
25  CONTINUE 

IPVOT ( ICOL) = IPVOT ( ICOL) +1 

PUT  PIVOT  ELEMENT  ON  DIAGONAL 
IF ( IROW . EQ . ICOL) GO  TO  40 
DO  30  L=1 , N 
T=D (IROW, L) 

D ( IROW , L) =D ( ICOL , L) 

30  D (ICOL, L) =T 
40  INDEX (1,1) =IROW 
INDEX (1,2) =ICOL 
PIVOT (I) =0 (ICOL, ICOL) 

DIVIDE  PIVOT  ROW  BY  PIVOT  ELEMENT 
D ( ICOL, ICOL) =1.0 
DO  50  L=1,N 

50  D ( ICOL, L) =D ( ICOL, L) /PIVOT ( I ) 


REDUCE  NON-PIVOT  ROWS 
DO  60  LI=1,N 
IF ( LI. EQ. ICOL) GO  TO  60 
T=D(LI, ICOL) 

D (LI, ICOL) =0.0 
DO  55  L=1,N 

55  D (LI , L) =D (LI , L) -D (ICOL,  L)  *T 
60  CONTINUE 

INTERCHANGE  COLUMNS 
DO  70  1=1, N 
L=N-I+1 

IF ( INDEX ( L, 1 ) . EQ . INDEX ( L, 2 ) ) GO  TO  70 
JROW=INDEX(L, 1) 
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JC0L=INDEX(L,2) 

DO  65  K=1,N 
T=D ( K , JROW) 

D ( K , JROW) — D (K, JCOL) 
D(K, JCOL)=T 
65  CONTINUE 
70  CONTINUE 

DO  80  1=1, N 
DO  80  J=1 , NP 
T= ( 0 . 0 , 0 . 0 ) 

DO  90  K=1,N 
90  T=D(I,K)*B(K,J)+T 
80  C (I , J) =T 

IF  (ISFLG.EQ.l)  THEN 

ISFLG=Q 

S=0. 0 

END  IF 

RETURN 

END 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 


c 

c 


c 


*************************************************************** 
* * 

* C COPYRIGHT  DECEMBER  1987  BY  * 

* THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI , * 

* A PUBLIC  CORPORATION  * 

* * 

*************************************************************** 
* * 

* SUBROUTINE  - FMODEL  * 

* * 

* PURPOSE  - To  return  coefficient  matricies  [A]  & [B]  * 

* of  3 DOF  linear  steady  state  vehicle  model  * 

* of  the  form:  * 

* . * 

* [X]=[A] [X]+[B] [C]  * 

* * 

* LAST  UPDATE  - 12/12/87  BY  - ANDRZEJ  G.  NALECZ  * 

* ALAN  BINDEMANN  * 

* * 

* REQUIRES  DATA  - FROM  COMMON  BLOCK  VDAT  * 

* * 


*************************************************************** 
SUBROUTINE  FMODEL (N , A, B) 


REAL  A(10,10) ,8(10,10) , L, M, MS , K13 , K23 , K33 , KU1 , KU2 , IZ , 
IX, K, Mil, Ml 3 ,M22 ,M31,M33 , MI 11, MI 13 ,MI22 , MI 31, MI 3 3 


COMMON/ VDAT/ 

Al, 

CTOT , 

Dl, 

DF, 

DI, 

H, 

! K, 

IX, 

IZ, 

L, 

M, 

MS, 

U, 

CMF, 

! CMR, 

CT, 

CA, 

CB 

CALL  FVDATA 

G=9 . 81 

B1=L-A1 

M11=M 
M13=MS*H 
M22=IZ 
M3 1=MS*H 
M33=IX 

DET=M1 1 *M2 2 *M3  3 -Ml 3 *M2  2 *M3 1 

MI11=M22*M33/DET 
MI 1 3=-Ml 3 *M2 2/ DET 
MI22=(M11*M33-M13*M31) /DET 
MI3 1=-M22  *M3 1/DET 
MI33=M11*M22/DET 

C11=CA*M*G* (Al+Bl) /U/L+4 . 0*CB/U 
C12=2 . 0*CB* (Al-Bl) /U+M*U 

C2 1=2 . 0*CB*A1/U~2 . 0*CB*B1/U+ (CMF+CMR) /U 
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C22=CA*Al*Al*M*G*Bl/U/L+2 . 0*A1*A1*CB/U+CA*B1*B1*M*G*A1/U/L-}- 
! 2 . Q*B1*B1*CA/U+A1*CMF/U-B1*CMR/U 

C32=MS*H*U 
C33=CTOT 

K13=DI*CT+BF*M*G*A1*CA/L+DF*2 . 0*CB 

K23=DF*M*G*A1*B1*CA/L+DF*2. 0*CB*B1”DI*CF*A1-DI*CMR 
K33=K-MS*G*H 

KU  1~M*G*B1*CA/ L+2 . 0*CB 
KU2=M*G*B1*CA*A1+2*CB*A1+CMF 

GENERATE  MATRIX  [A] 

A ( 1 , 1) =~C11*MI11 

A ( 1 , 2 ) =”C32*MI13 

A(l, 3)=~C33*MI13 

A(l, 4)=-K13*MIll-K33*MI13 

A(2, 1)=-C21*MX22 

A(2 , 2)  =°-C22*MI22 

A (2 , 3 ) =0 „ 0 

A ( 2 , 4 ) =-K2  3 *MX  2 2 

A(3,1)=-C11*MI31 

A(3  # 2)=-C12*MI31-C3  2*MI3  3 

A(3,3)=-C33*MI33 

A{3 , 4)=-KX3*MX3X~K33*MX33 

A ( 4 , i) =0 . 0 

A ( 4 , 2 ) =0  * 0 

A(4,3)=l»0 

A (4 , 4 ) ~0 . 0 

GENERATE  MATRIX  [B] 

B(X, 1)=KU1*MI11 
B(2, X)=KU2*MI22 
B(3 , 1) — KU1*MI31 
B(4, 1)=0.0 

RETURN 

END 
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900  REM  ******************************************************** 
905  REM  * 

910  REM  * C COPYRIGHT  DECEMBER  1987,  BY 

915  REM  * THE  CURATORS  OF  THE  UNIVERSITY  OF  MISSOURI, 

920  REM  * A PUBLIC  CORPORATION 

930  REM  * 

935  REM  ******************************************************** 

1000  REM  **  READ  DATA  FILE  FROM  VAX  ** 

1001  ON  ERROR  GOTO  6000 

1010  CLS : PRINT8®****  PLOTTING  PROGRAM  FOR  SENSITIVITY 
ALGORITHIMS  * * * 89 : PRINT 

PRINT®9 1 ) PLOT  TRANSIENT  TIME  DOMAIN  SENSITIVITY  RESULTS'9 
PRINT” 2)  PLOT  STEADY  STATE  SENSITIVITY  RESULTS” 

PRINT” 3)  PLOT  FREQUENCY  DOMAIN  SENSITIVITY  RESULTS PRINT 
INPUT  " INPUT  THE  NUMBER  OF  YOUR  CHOICE” ? SENTYP 
IF  SENTYP<1  OR  SENTYP>3  THEN  1000 
DIM  TEXT$ ( 3 ) 

IF  SENTYP” 1 THEN  TEXT$ ( 2 ) =”TIME  (Sec.)" 

IF  SENTYP=2  THEN  TEXT$  ( 2 ) = 99  STEER  ANGLE  (Deg.)'9 
IF  SENTYP=3  THEN  TEXT$  ( 2 ) -"FREQUENCY  (Rad/S)  99 
CLS 
CLOSE 

INPUT  "ENTER  THE  DATA  FILE  NAME  (EX.  B:  SAMP.  DAT)  99 ; D$ 

OPEN  D$  FOR  INPUT  AS  #2 

CLS  : PRINT99**  AVAILABLE  SENSITIVITY  MEASURES  ** 99  ? PRINT 
PRINT89 1)  PERCENTAGE  SENSITIVITY  FUNCTIONS99 
PRINT” 2)  FIRST  ORDER  STANDARD  SENSITIVITY  FUNCTIONS99 
PRINT 99  3 ) FIRST  ORDER  LOGARITHMIC  SENSITIVITY  FUNCTIONS” 
PRINT” 4 ) SECOND  ORDER  STANDARD  SENSITIVITY  FUNCTIONS” : PRINT 
INPUT "INPUT  THE  SENSITIVITY  FUNCTION  OF  INTEREST” ; SFUN 
SFUN>4  THEN  1100 


1020 

1030 

1040 

1050 

1060 

1062 

1063 

1064 

1065 
1070 
1080 
1090 
1095 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1162 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1260 
1280 
1290 
1300 
1310 
1320 
1322 
1324 
1326 
1328 
1340 
1342 
1344 
1346 
1348 


OR 
, 60 


READING  DATA,  PLEASE  STAND  BY 


IF  SFUNcl 
LOCATE  13 
PRINT  99 
INPUT  #2 , NP 
IF  NP—0  THEN  1180 
INPUT  #2 , ND 
INPUT  #2, NT 

DIM  SENS (NT, ND, NP) ,VAR(NT,ND) , SM(NT,ND) ,ISV(ND) 
DIM  PARK (8) , PLTX ( 10 , NT) ,PLTY(10,NT) , T (NT) 

FOR  1=1  TO  NT 
INPUT  #2 , T (I) 

CNT=CNT+1 
FOR  J=1  TO  ND 
INPUT  #2 , ISV ( J) 

INPUT  #2 , VAR ( I , J) 

FOR  K=1  TO  NP 

IF  S FUN= 1 THEN  INPUT  #2 , SENS (I , J, K)  , DUM, DUM, DUM 
IF  SFUN=2  THEN  INPUT  #2 , DUM, SENS (I ,J, K) , DUM, DUM 
IF  SFUN=4  THEN  INPUT  #2 , DUM, DUM , SENS ( I , J , K) , DUM 
IF  SFUN=3  THEN  INPUT  #2 , DUM, DUM, DUM, SENS (I ,J, K) 
NEXT  K 

IF  SFUNOl  THEN  GOTO  1346 

INPUT  # 2 , SM ( I , J ) : INPUT  #2,DUM:INPUT  #2,DUM:XNPUT 
IF  SFUN<>2  THEN  GOTO  1350 

INPUT  #2 , DUM: INPUT  #2 , SM ( I , J) : INPUT  #2,DUM:INPUT 


#2, DUM 
#2, DUM 


1350  IF  SFUN<>3  THEN  GOTO  1354 

1352  INPUT  # 2 , DUM : INPUT  #2,DUM:XNPUT  #2 , SM (I , J)  : INPUT  #2, DUM 
1354  IF  SFUN<>4  THEN  GOTO  1360 

1356  INPUT  #2 , DUM: INPUT  #2 , DUM: INPUT  #2 , DUM: INPUT  #2,SM(X,J) 

1360  NEXT  J 

1370  NEXT  I 

1390  NT=CNT % CNT—0 

1400  DIM  AX (10, NT) ,AY(10,NT) ,E$ (10) ,M(10) 

1410  CLS 

1420  PRINT85*****  MAIN  PLOTTING  MENU  ***** 88 : PRINT 
1430  PRINT 88 1)  PLOT  SENSITIVITY  OF  A SINGLE  VARIABLE  DUE 
TO  VARIOUS  PARAMETERS'* 

1440  PRINT" 2)  PLOT  SENSITIVITY  OF  VARIOUS  VARIABLES  DUE 
TO  A SINGLE  PARAMETER" 

1450  PRINT" 3 ) PLOT  A PARTICULAR  VARIABLE" 

1460  PRINT" 4)  PLOT  SENSITIVITY  MEASURE  OF  ALL  PARAMETERS 

ON  A SINGLE  VARIABLE" 

1470  PRINT" 5)  CHANGE  CURRENT  DATA  FILE" 

1480  PRINT" 6)  QUIT" * PRINT 

1490  INPUT" INPUT  THE  NUMBER  OF  YOUR  CHOICE  (1-6) ";CH 
1500  IF  CH<1  OR  CH>6  THEN  1410 
1510  IF  CH~6  THEN  END 

1530  ON  CH  GOSUB  1620,2100,2480,2690,1550 
1540  GOTO  1410 

1550  ERASE  TEXT$ , SENS , AX, AY , VAR, T, E$ , M, PARM, PLTX, PLTY , ISV, SM 
1560  GOTO  1000 

1620  CLS : PRINT " * * * PLOT  SENSITIVITY  OF  VARIABLE 
DUE  TO  PARAMETERS  ***": PRINT 
1630  PRINT "VARIABLE  XNOXCXES" : PRINT 
1640  FOR  1*1  TO  ND 
1650  PRINT  XSV(X) 

1660  NEXT  I 

1670  PRINT  : INPUT" INPUT  THE  VARIABLE  INDEX  YOU  WISH  TO  USE";IDX 

1680  FOR  11=1  TO  ND 

1690  IF  IDX=ISV (II)  THEN  GOTO  1740 

1700  NEXT  II 

1710  PRINT I BEEP: PRINT "VARIABLE  INDEX  NOT  ON  LIST" 

1720  INPUT 88 PRESS  RETURN  TO  CONTINUE" ;G$ 

1730  GOTO  1620 
1740  M=0 

1750  CLS: PRINT"**  PARAMETERS  **": PRINT 
1760  PRINT "AVAILABLE  PARAMETERS" : PRINT 
1770  FOR  1=1  TO  NP 
1780  PRINT  I 
1790  NEXT  I 

1800  PRINT: PRINT" INPUT  THE  PARAMETER  YOU  WISH  TO  PLOT" 

1810  INPUT" (ENTER  'ALL9  FOR  ALL  PARAMETERS) "? PI DX$ 

1820  IF  PXOX$="ALL"  OR  PXDX$="all"  THEN  GOSUB  5030 
1830  PIDX=VAL(PIDX$) 

1840  IF  PXDX>0  OR  PXDX<=HP  THEN  GOTO  1880 

1850  PRINT: BEEP: PRINT" SELECTED  PARAMETER  NOT  ON  LIST" 

1860  INPUT" PRESS  RETURN  TO  CONTINUE" ;G$ 

1870  GOTO  1750 
1880  N=N+X 

1890  E$  (N)  ="PB,+STR$  (PIDX) 
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1900 

1980 

1990 

2000 

2010 

2020 

2030 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 


FOR  1=1  TO  NT 

AY (N, I) =SENS (I , II , PIDX) 

NEXT  I 
M(N)=NT 

PRINT : INPUT "DO  YOU  WISH  TO  PLOT  ADDITIONAL  SENSITIVITY 
FUNCTIONS  (Y/N) " ;G$ 

IF  G$="Y"  OR  G$="y"  THEN  GOTO  1750  ELSE  RETURN  2910 
REM 

CLS: PRINT"***  PLOT  SENSITIVITY  OF  VARIABLES  DUE  TO  A 
PARTICULAR  PARAMETER  ***": PRINT 
PRINT "AVAILABLE  PARAMETERS PRINT 
FOR  1=1  TO  NP 
PRINT  I 
NEXT  I 

PRINT: INPUT" INPUT  THE  NUMBER  OF  THE  PARAMETER  YOU 
WISH  TO  USE"; PIDX 
IF  I>0  OR  I<=NP  THEN  GOTO  2200 

PRINT: BEEP: PRINT"SELECTED  PARAMETER  NOT  ON  LIST" 

INPUT "PRESS  RETURN  TO  CONTINUE" ;G$ 

GOTO  2100 
N=0 

CLS: PRINT"**  VARIABLES  **": PRINT 
PRINT "VARIABLE  INDICIES" : PRINT 
FOR  1=1  TO  ND 
PRINT  ISV(I) 

NEXT  I 

PRINT: INPUT" INPUT  THE  VARIABLE  INDEX  YOU  WISH  TO  PLOT";IDX 
FOR  11=1  TO  ND 

IF  IDX=ISV (II)  THEN  GOTO  2330 
NEXT  II 

PRINT: BEEP: PRINT" VARIABLE  INDEX  NOT  ON  LIST" 

INPUT" PRESS  RETURN  TO  CONTINUE" ;G$ 

GOTO  2210 
N=N+1 

E$ (N) ="V"+STR$ ( IDX) 

FOR  1=1  TO  NT 

AY (N , I ) =SENS ( I , II , PIDX) 

NEXT  I 
M(N)=NT 

PRINT: INPUT "DO  YOU  WISH  TO  PLOT  ADDITIONAL  VARIABLES  (Y/N)";G$ 

IF  G$=" Y"  OR  G$="y"  THEN  2210  ELSE  RETURN  2910 

N=Q 

CLS: PRINT"***  PLOT  VARIABLES  ***": PRINT 
PRINT "VARIABLE  INDICIES" : PRINT 
FOR  1=1  TO  ND 
PRINT  ISV(I) 

NEXT  I 

PRINT: INPUT "INPUT  THE  VARIABLE  INDEX  YOU  WISH  TO  PLOT"; IDX 
FOR  11=1  TO  ND 

IF  IDX=ISV ( II ) THEN  GOTO  2610 
NEXT  II 

PRINT: BEEP: PRINT" VARIABLE  INDEX  NOT  ON  LIST" 

INPUT" PRESS  RETURN  TO  CONTINUE" ;G$ 

GOTO  2490 
N=N+1 
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2620  E$(N)="V"+STR$(XDX) 

2630  FOR  1=1  TO  NT 
2640  AY(N,I)=VAR(I,II) 

2650  NEXT  X 
2660  M(N)=NT 

2670  PRINT* INPUT” DO  YOU  WISH  TO  PLOT  ADDITIONAL 
VARIABLES  (Y/N) " ;G$ 

2680  IF  G$="Y"  OR  G$="y"  THEN  2490  ELSE  RETURN  2910 

2690  N=Q 

2700  CLS:  PRINT9'***  PLOT  SENSITIVITY  MEASURE  OF  VARIABLES  ***!' 

2705  PRINT 

2710  PRINT "VARIABLE  INDICIES" : PRINT 

2720  FOR  1=1  TO  ND 
2730  PRINT  XSV(I) 

2740  NEXT  I 

2750  PRINT*  INPUT89 INPUT  THE  VARIABLE  INDEX  WHOSE  SENSITIVITY 
MEASURE  YOU  WISH  TO  PLOT";XDX 
2760  FOR  11=1  TO  ND 

2770  IF  XDX=XSV (II)  THEN  GOTO  2820 
2780  NEXT  II 

2790  PRINT : BEEP : PKINT"VARIABLE  INDEX  NOT  ON  LIST" 

2800  INPUT "PRESS  RETURN  TO  CONTINUE" ;G$ 

2810  GOTO  2700 
2820  N=N+1 

2830  E$(N)="V"+STR$(IDX) 

2840  FOR  1=1  TO  NT 
2850  AY (N, I) =SM(X , II) 

2860  NEXT  I 
2870  M(N)=NT 

2880  PRINT i PRINT" DO  YOU  WISH  TO  PLOT  THE  SENSITIVITY  MEASURE" 

2885  XNPUT"OF  ADDITIONAL  VARIABLES  (Y/N)";G$ 

2890  IF  G$="Y"  OR  G$="y"  THEN  2700  ELSE  RETURN  2910 
2910  FOR  1=1  TO  N 
2920  FOR  J=1  TO  NT 
2930  AX(I, J)=T(J) 

2940  NEXT  J 
2950  NEXT  1 

2960  REM  ********************************************************* 


2970  REM  * * 
2980  REM  * SUBROUTINE  - HPPLOT  * 
2990  REM  * * 
3000  REM  * CALL  STATEMENT  - CALL  HPPLOT (N, M ( I ) , AX ( I , J) , AY ( I , J) ) * 
3010  REM  * * 
3020  REM  * INPUT  VARIABLES l * 
3030  REM  * * 
3040  REM  * N - THE  NUMBER  OF  CURVES  TO  BE  PLOTTED  * 
3050  REM  * M(I)  - THE  TOTAL  NUMBER  OF  PLOTTED  POINTS  IN  A * 
3060  REM  * PARTICULAR  CURVE  * 
3070  REM  * AX(I,J)  - THE  ARRAY  OF  X PLOT  COORDINATES  * 
3080  REM  * AY(I,J)  - THE  ARRAY  OF  Y PLOT  COORDINATES  * 
3090  REM  * * 
3100  REM  * OUTPUT  VARIABLES  t * 
3110  REM  * * 
3120  REM  * NONE  * 
3130  REM  * * 
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3140  REM  * WRITTEN  BY  ALAN  BINDEMANN  02/04/87  * 

3150  REM  * * 

3160  REM  ********************************************************* 
3170  REM  FIND  MAXIMUM  AND  MINIMUM  X VALUES 
3180  REM 

3190  XMAX=-9 . 9E+37 
3200  XMIN=9 . 9E+37 
3210  FOR  1=1  TO  N 
3220  FOR  J=1  TO  M(I) 

3230  IF  AX(I, J) >XMAX  THEN  XMAX=AX(I,J) 

3240  IF  AX ( I , J) <XMIN  THEN  XMIN=AX ( I , J) 

3250  NEXT  J 
3260  NEXT  I 
3270  REM 

3280  REM  FIND  MAXIMUM  AND  MINIMUM  Y VALUES 
3290  REM 

3300  YMAX=~9 . 9E+37 
3310  YMIN=9 . 9E+37 
3320  FOR  1=1  TO  N 
3330  FOR  J=1  TO  M(I) 

3340  IF  AY(I,J)>YMAX  THEN  YMAX=AY(I, J) 

3350  IF  AY(I,J)<YMIN  THEN  YMIN=AY(X,J) 

3360  NEXT  J 
3370  NEXT  I 
3380  CLS 

3390  PRINT  'B////////  DATA  EXTENTS  \\\\\\\\" : PRINT 

3 4 00  PRINT  "'MINIMUM  X-COQRDINATE  - ";XMIN 

3410  PRINT  "MAXIMUM  X-COORDINATE  - " ; XMAX : PRINT 

3420  PRINT  "MINIMUM  Y-COQRDINATE  - " ; YMIN 

3430  PRINT  "MAXIMUM  Y-COQRDINATE  - 99  ;YMAX:  PRINT 

3440  INPUT  "INPUT  THE  X-ORIGIN  OF  THE  PLOT89 ; FARM ( 1 ) 

3450  INPUT  "INPUT  THE  X-ENO  OF  THE  PLOT" ? FARM ( 2 ) 

3460  GOSUB  4850 

3470  PRINT: INPUT  "INPUT  THE  Y-ORIGIN  OF  THE  PLOT" ? FARM ( 5 ) 

3480  INPUT  "INPUT  THE  Y-ENO  OF  THE  PLOT" ? FARM ( 6 ) 

3490  GOSUB  4940 
3500  CLS 

3510  INPUT" INPUT  THE  GRAPH  TITLE" ;TEXT$ ( 1) 

3530  PRINT: INPUT" INPUT  THE  Y AXIS  TITLE" ; TEXT$ ( 3 ) 

3540  CLS 

3550  PRINT  "////////  PLOTTER  SET-UP  FOR  X AXIS  \\\\\\\\" : PRINT 


3560  PRINT  " 1)  X-ORIGIN  ————————  " ; PARM ( 1 ) 

3570  PRINT  " 2)  X-END  —————————  " ; PARM  ( 2 ) 

3 58  0 PRINT  " 3)  X-AXIS  MAJOR  TIC  INTERVAL  ------  " ; PARM  ( 3 ) 

3 590  PRINT  " 4)  X-AXIS  MINOR  TIC  INTERVAL 18  ; PARM  ( 4 ) 


3600  PRINT: INPUT" DO  YOU  WISH  TO  CHANGE  ANY  ITEMS  (Y/N)";G$ 

3610  IF  G$o"Y"  AND  G$o"y"  AND  G$o"N"  AND  G$o"n"  THEN  3540 
3620  IF  G$="N"  OR  G$="n"  THEN  3680 

3630  PRINT: INPUT" INPUT  THE  NUMBER  YOU  WISH  TO  CHANGE  (1-4)";CH 

3640  IF  CH<1  OR  CH>4  THEN  3630 

3650  PRINT: PRINT "OLD  VALUE  - " ;PARM(CH) 

3660  PRINT: INPUT "NEW  VALUE  - " ;PARM(CH) 

3670  GOTO  3540 
3680  CLS 

3690  PRINT  "////////  PLOTTER  SET-UP  FOR  Y AXIS  \\\\\\\\" : PRINT 
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3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 


PRINT  88 
PRINT  88 
PRINT  " 
PRINT  59 


1)  Y-ORIGIN  —————— — " t FARM  ( 5 ) 

2)  Y-EMD  " ; FARM  (6) 

3)  Y-AXIS  MAJOR  TIC  INTERVAL ";PARM(7) 

FKJLJMT  " 4)  Y-AXIS  MINOR  TIC  INTERVAL " ; FARM (8) 

PRINT:  INPUT98 DO  YOU  WISH  TO  CHANGE  ANY  ITEMS  (Y/N)9';G$ 

IF  G$<>"Y"  AND  G$<>"y"  AND  G$o59N88  AND  G$o"n"  THEN  3680 
IF  G$="N"  OR  G$=9ln88  THEN  3820 

PRINT: INPUT" INPUT  THE  NUMBER  YOU  WISH  TO  CHANGE  (1-4)" ;CH 

IF  CH<1  OR  CH>4  THEN  3770 

PRINT:  PRINT 89 OLD  VALUE  - 89  ? FARM  ( CH+4  ) 

PRINT:  INPUT9!NEW  VALUE  - 89  ? FARM (CH+4 ) 

GOTO  3680 
CLS 

PRINT  "////////  GRAPHING  TITLES  \\\\\\\\" : PRINT 
PRINT  89  1)  TITLE  — 8\*TEXT$(1) 

PRINT  98  2 ) X-AXIS  - 98  ;TEXT$  ( 2 ) 

PRINT  98  3 ) Y-AXIS  - ";TEXT$(3) 

PRINT:  INPUT 88 DO  YOU  WISH  TO  MAKE 
IF  G$<>99Y"  AND  G$<>88y"  AND  G$<>S9N,a 
IF  G$=8,N"  OR  G$“89n88  THEN  3950 
PRINT:  INPUT 88 INPUT  THE  NUMBER  YOU  WISH  TO  CHANGE  (1-3)!';CH 
IF  CH<1  OR  CH>3  THEN  3900 
PRINT:  PRINT 89 OLD  TITLE  - ";TEXT$(CH) 

PRINT:  INPUT 88 NEW  TITLE  - 88  ;TEXT$(CH) 

GOTO  3820 

CLS 

REM 

REM  ***  MAP  DATA  INTO  INTEGER  SPACE  FOR  PLOTTING  *** 

REM 

FOR  1=1  TO  N 
FOR  J=1  TO  M(I) 

PLTX(I, J)=INT( ( AX ( I , J ) -PARM(l) ) *11000/ (PARM(2) -PARM(l) ) ) 
PLTY(I, J)=INT( ( AY ( I , J ) -FARM (5) ) *15000/ (PARM(6) -FARM (5) ) ) 

NEXT  J 
NEXT  I 
REM 

REM  ***  CONVERT  MINOR  AND 
INTO  INTEGER  SPACE  *** 


ANY  CHANGES  (Y/N)88;G$ 

AND  G$o"n88  THEN  3820 


MAJOR  TIC  INTERVALS 


REM 

PXT1= (FARM (3) *11000)/ (FARM ( 2 ) -FARM ( 1) ) 

PXT2= (FARM (4) *11000) / (FARM ( 2 ) -FARM ( 1) ) 

PYT1=(PARM(7) *15000)/ (FARM (6) -PARK (5) ) 

PYT2=  (FARM (8)  *15000)  / ( FARM ( 6 ) -PARM ( 5 ) ) 

OPEN  "COM1: 9600, S , 7 , 1 , RS , CS65535 , DS , CD"  AS  #1 

PRINT  #1, 8,IN ;RQ9Q?IP120Q, 1400, 7000, 9200  ;IW; SCO,  11000,0, 15000;" 
PRINT  #1/"VS4;" 

REM 

PRINT  # 1 , 88 SP1  ? PU  ? PAO , 0 ; TL1 , 0 ; PD ; 98 
FOR  XP=0  TO  11000  STEP  PXT1 
PRINT  #1 , 88PA88XP,  0 ; 8,XT ; 88 
NEXT  XP 

PRINT  # 1 , " PU ; PAO , 0 ; TL .5,0?" 

FOR  XP=0  TO  11000  STEP  PXT2 
PRINT  #1,  e8PA98XP,  0;"XT;89 
NEXT  XP 
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4240  PRINT  #1, "TL1,0;PA0,0;" 

4250  PRINT  # 1 , " S I ; " 

4260  FOR  1=0  TO  11000/PXT1 
4270  PRINT  #1, "PA"I*PXT1, 0; 

42  80  LS=~ • 5-LEN ( STR$ ( PARM ( 1 ) + 1 * P ARM ( 3 ) ) )/2 
4290  PRINT  #1, "CP"LS, -1; 

4300  A$=STR$ (PARM ( 1) +I*PARM ( 3 ) ) 

4310  PRINT  #1/'LB"A$;CHR$ (3) 

4320  NEXT  I 

4330  PRINT  #1 , ,5PA0 , 0 PD" 

4340  REM 

4350  REM  ***  PLOT  AND  MARK  Y AXIS  *** 

4360  REM 

4370  PRINT  #1,  "PAO,  0;PD;" 

4380  FOR  YP=PYT1  TO  15001  STEP  PYT1 
4390  PRINT  #1,"PA,,0/YP?,,YT?" 

4400  NEXT  YP 

4410  PRINT  # 1 f " PU ; TL .5,0;" 

4420  FOR  YP=0  TO  15001  STEP  PYT2 
443  0 PRINT  #1,  "PA"0,  YP;"YT;8' 

4440  NEXT  YP 

4450  PRINT  #1,"PU;PA0,0;" 

4460  FOR  1=0  TO  15000/PYT1 

4470  LS=~. 5”LEN (STR$ (PARM (5) +I*PARM(7) ) ) 

4480  PRINT  #1, "PA"0,I*PYT1? 

4490  PRINT  #l,"CP"LS,-.25? 

4500  A$=STR$  (PARM (5)  + X*PAJRM(7)  ) 

4510  PRINT  #1,"LB"A$;CHR$(3) 

4520  NEXT  I 
4530  GOTO  4540 

4540  REM  **  LABEL  GRAPH  TITLES  ** 

4550  PRINT  #1,!'PA5000,0;" 

4560  LS=-LEN(TEXT$ (2) )/2 
4570  PRINT  #l,"CP"LS,-3; 

4580  PRINT  #1,  ,,LB"TEXT$  (2)  ;CHR$(3) 

4590  PRINT  #1,"DI0,1;PA0,7500?" 

4600  LS=-LEN(TEXT$(3) )/2 
4610  PRINT  # 1 , '®CP!BLS  , 4 ; 

4620  PRINT  #i/«LB"TEXT$(3) ;CHR$(3) 

4630  PRINT  #1 , ,9DI1 , 0 ; PA5500 ,15200;  SI. 3,  .45?" 
4640  LS=-LEN(TEXT$ (1) )/2 
4650  PRINT  #1,,,CP"LS,  .4; 

4 660  PRINT  #1,  ,,LB"TEXT$(1)  ;CHR$(3) 

4670  PRINT  #1, "SlyPU;" 

4680  REM  ***  PLOT  DATA  *** 

4690  FOR  1=1  TO  N 

4700  PRINT  #1,"IW1200, 1400,7000, 9200;'8 
4710  PRINT  #1, "PA"PLTX(I,1) ,PLTY(I,1) ? 

4720  IF  PLTX(I,1)<0  OR  PLTX ( I , 1 ) >11000  THEN 
PRINT  #1, "PU;":GOTO  4740 
4730  IF  PLTY ( I , 1) <0  OR  PLTY (I , 1) >15000  THEN 
PRINT  # 1 , " PU ; " ELSE  PRINT  #1,',PD;" 
4740  FOR  J=2  TO  M(I) 

4750  PRINT  #1, "PA" PLTX (I, J) ,PLTY(I, J) ? 

4760  IF  PLTX ( I , J) <0  OR  PLTX ( I , J) >11000  THEN 
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4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5140 

5150 

5160 

5170 

5180 

6000 

6005 

6007 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

5200 

6210 


PRINT  # 1 , " PU ; " : GOTO  4780 
IF  PLTY(I,J)<0  OR  PLTY (I, J) >15000  THEN 
PRINT  # 1 , " PU ; " ELSE  PRINT  #1,"PD;" 

NEXT  J 

PRINT  #1 , ”IW? PU ; SI . 15 , . 225 ; CPI , - . 25 ; LB"E$ ( I)  ;CHR$(3) 

PRINT  #1,”SI?" 

NEXT  I 

PRINT  #1, "IP;SC0, 100,0, 1Q0;SP;PA50, 100;" 

CLOSE  #1 
GOTO  1410 

PRINT' INPUT” INPUT  DISTANCE  BETWEEN  MAJOR  TICK  MARKS " ; P ARM ( 3 ) 
INPUT 89 INPUT  DISTANCE  BETWEEN  MINOR  TICK  MARKS  " ? FARM  ( 4 ) 

IF  { FARM  ( 2 ) -“FARM  ( 1 ) ) /FARM  ( 3 ) < 1 0 THEN  RETURN 
BEEP SPRINT SPRINT”***  WARNING  ***”s PRINT 

PRINT” YOU  HAVE  REQUESTED  OVER  10  NUMBERED  TICK  MARKS,” 

INPUT 09 DO  YOU  WISH  TO  CONTINUE  (Y/N)";G$ 

IF  G$o”Y”  AND  G$<>”y”  AND  G$o"N"  AND  G$o"n”  THEN  4900 

IF  G$— ”N”  OR  G$=”n”  THEN  4850 

RETURN 

PRINTS  INPUT” INPUT  DISTANCE  BETWEEN  MAJOR  TICK  MARKS " ? FARM ( 7 ) 
INPUT” INPUT  DISTANCE  BETWEEN  MINOR  TICK  MARKS FARM  ( 8 ) 

IF  (PARK (6) -FARM (5) ) /FARM (7) <10  THEN  RETURN 

BEEPS  PRINTS  PRINT”***  WARNING  ***” SPRINT 

PRINT” YOU  HAVE  REQUESTED  OVER  10  NUMBERED  TICK  MARKS,” 

INPUT” DO  YOU  WISH  TO  CONTINUE  (Y/N)";G$ 

IF  G$o”Y”  AND  G$o"y"  AND  G$o”N"  AND  G$o"n"  THEN  4990 

IF  G$— ”N”  OR  G$=”n”  THEN  4940 

RETURN 

N— NP 

FOR  1=1  TO  N 
E$ (I) — ”P”+STR$ (I) 

FOR  J=1  TO  NT 

AY (I , J) =SENS ( J, II , I) 

NEXT  J 
M ( I ) —NT 
NEXT  I 
RETURN  2910 

REM  ***  ERROR  TRAPPING  ROUTINE  *** 

PRINT  ERR 

IF  ERR<>62  AND  ERR<>  24  AND  ERR<>55  AND  ERR<>71  AND 
ERR<>53  THEN  GOSUB  6200 
IF  ERR=62  THEN  RESUME  1390 
IF  ERR— 24  THEN  GOTO  6030  ELSE  GOTO  6050 
PRINT”***  PLOTTER  ERROR  ***” SPRINT 
INPUT” PLACE  PLOTTER  ON-LINE  AND  PRESS  RETURN  TO 
CONTINUE” ? G$ s RESUME 
IF  ERR— 5 5 THEN  CLOSES RESUME 
IF  ERR=71  THEN  GOTO  6070  ELSE  GOTO  6090 
IMPUT”OXSK  DRIVE  NOT  READY,  CORRECT  AND 
PRESS  RETURN” ? G$ : RESUME 
IF  ERR=53  THEN  GOTO  6090  ELSE  GOTO  6100 
PRINTS  PRINT”***  FILE  NOT  FOUND  ***” s PRINT s RESUME  1090 
END 

PRINT  ”***  UNRECOVERABLE  ERROR  ENCOUNTERED  ***” SPRINT 
PRINT  ” BASIC  ERROR  CODE”  ,e ERR 
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6220  STOP 


I 


APPENDIX  E 


$ ! DCL  Routine  for  Installation  of  Sensitivity  Software 
$ CLEAR 

$ SET  NOVERIFY 
$ SAY  ==  "WRITE  SYS$OUTPUT" 

$ SAY  "Beginning  Software  Installation" 

$ SAY  " " 

$ SAY  "...  Creating  Object  Libraries 
$ LIB/ CREATE  TRNS 
$ LIB/CREATE  SDST 
$ LIB/ CREATE  FREQ 
$ SAY  " " 

$ SAY  "...  Compiling  Main  Programs" 

$ FOR  TRANS 
$ FOR  STEDY 
$ FOR  FREQDOM3 
$ SAY  " " 

$ SAY  "...  Compiling  Required  Subroutines  and  Placing  in  Object  Librari 
$ @LIB  TRNS  VDATA 
$ PU 

$ @LIB  SDST  VDATA 
$ PU 

$ @LIB  TRNS  INPUT1 
$ PU 

$ @LIB  TRNS  FCN 
$ PU 

$ @LIB  TRNS  FCNJ 
$ PU 

$ @LIB  TRNS  DRVT 
$ PU 

$ @LIB  SDST  DRVT 
$ PU 

$ §LIB  TRNS  GAUSS 
$ PU 

$ @LIB  SDST  GAUSS 
$ PU 

$ §LIB  TRNS  MODEL 
$ PU 

$ 0LIB  SDST  SSMODEL 
$ PU 

$ @LIB  SDST  INPUT2 
$ PU 

$ @LIB  SDST  SSFCN 
$ PU 

$ @LIB  FREQ  FVDATA 
$ PU 

$ @LIB  FREQ  FMODEL 
$ PU 

$ §LIB  FREQ  INPUT3 
$ PU 

$ @LIB  FREQ  TRANSFER 
$ PU 

$ SET  NOVERIFY 
$ SAY  " " 

$ SAY  "Software  Installation  Complete" 

$ SAY  " " 

$ EXIT 
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APPENDIX  F 


$ ! DCL  Routine  for  Compiling  Subroutines  to  Object  Libraries 
$ SET  NOVERIFY 
$ FOR/DEBUG/NOOPTIMIZE  ' P2 ' 

$ LIB/REPLACE  'PI'  ' P2 ' 

$ PUR  ' P2 ' . * 

$ DEL  ! P2 ' .OBJ;* 

$ SET  NOVERIFY 
$ EXIT 
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